fork download
  1. USING: kernel sequences locals io formatting strings math math.functions math.parser ;
  2. IN: main
  3. "Hello, World" print
  4. :: loop ( i -- )
  5. i "%d " printf
  6. ;
  7. readln string>number
  8. iota [ dup loop ] each
Runtime error #stdin #stdout 1.34s 165056KB
stdin
30
stdout
Hello, World
0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 Quotation's stack effect does not match call site
quot      [ "Hello, World" print readln string>number iota ~quotation~...
call-site (( -- ))