REBOL[]loop do input[print(k: round(do input)** .5)* 11 + mod k 10]