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