Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/tests/conformance98/FFI/foreignptr/foreignptr.stdout
f <- fopen temporary fwrite "hello world\n" 7 f fwrite "orld\n" 5 f f <- fopen /dev/null mapM_ (\n-> fwrite (show n) 1 f) [1..1000] done
