A:={' /\'.'/__\'}.50to:stdin nextByte do:[:i|A:=(A collect:[:s|'',(A collect:[:x|$ ]),s]),(A collect:[:s|s,(s=~' *')match,s])].A do:[:s|s displayNl]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page