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]