RosettaCodeData/Task/Topic-variable/PicoLisp/topic-variable-2.l

(while (read)
   (when (num? @)
      (println (* @ @)) ) )
abc   # Not a number
7     # Number
49    # -> print square
xyz   # Not a number
3     # Number
9     # -> print square