Kernighans large earthquake problem: Difference between revisions

dup "r" fopen >!f

<$f 0 less< ( [drop "Could not open '" print print "' for reading" print -1 end ] [drop] ) if

[dup split 3 get tonum 6 great> ( [drop print nl] [drop drop] ) if]

[<$f fgets dup -1 nequal#]

<$f fclose