procedure main()
   write(image(every repl(repl("xxx",50),write(1 to 100))) | "failed")
   write(image(repl(repl(repl(repl(&cset,100),100),100),100)) | "failed")
end