USING: kernel sequences locals io formatting strings math math.functions math.parser ;
IN: main
"Hello, World" print
:: loop ( i -- )
;
readln string>number
i [ dup loop ] each
VVNJTkc6IGtlcm5lbCBzZXF1ZW5jZXMgbG9jYWxzIGlvIGZvcm1hdHRpbmcgc3RyaW5ncyBtYXRoIG1hdGguZnVuY3Rpb25zIG1hdGgucGFyc2VyIDsKSU46IG1haW4KIkhlbGxvLCBXb3JsZCIgcHJpbnQKOjogbG9vcCAoIGkgLS0gKQogIGkgIiVkICIgcHJpbnRmCjsKcmVhZGxuIHN0cmluZz5udW1iZXIKaSBbIGR1cCBsb29wIF0gZWFjaA==