alias wl { var %x = 0 {
    while (%x <= $1) {
      if ( %x != 1 msg # $($2-,2))
      inc %x
    }
  }
}