RosettaCodeData/Task/Hailstone-sequence/Icon/hailstone-sequence-2.icon

5 lines
89 B
Plaintext

procedure main(args)
n := integer(!args) | 27
every writes(" ",hailstone(n))
end