print for sort { $a <=> $b }
  map { scalar <> } 1 .. <>;