|c number|
[
number:=0.
[ (c := stdin next) asciiValue ~= 10 ]
whileTrue:
[number := (number * 10) + (c asciiValue) - 48.].
number ~= 42
]
whileTrue:
[Transcript show: number printString; cr.]
!
fGMgbnVtYmVyfApbCgludW1iZXI6PTAuCglbIChjIDo9IHN0ZGluIG5leHQpIGFzY2lpVmFsdWUgfj0gMTAgXQoJd2hpbGVUcnVlOgoJW251bWJlciA6PSAobnVtYmVyICogMTApICsgKGMgYXNjaWlWYWx1ZSkgLSA0OC5dLgoJbnVtYmVyIH49IDQyCl0Kd2hpbGVUcnVlOgpbVHJhbnNjcmlwdCBzaG93OiBudW1iZXIgcHJpbnRTdHJpbmc7IGNyLl0KIQ==