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 -- j )
  5. i "%d " printf
  6. ;
  7. readln string>number
  8. iota [ dup loop ] each
Runtime error #stdin #stdout 1.31s 165056KB
stdin
30
stdout
Hello, World
The word loop cannot be executed because it failed to compile

Stack effect declaration is wrong
inferred (( x -- ))
declared (( i -- j ))