RosettaCodeData/Task/Loops-While/DUP/loops-while-1.dup

1024[$][$.10,2/\%]# {Short form}