#include "std/io.toc", io; #include "std/mem.toc"; main ::= fn() { file, err := io.fopen_write("test.txt"); for i := 0.,1000000 { io.fputs(file, "!"); } io.fclose(file); } main();