procedure main() r:=repl every n:=|read()&write("|"||(r(" ",0to n-1)|r("_",n))||"\\"|r("*",32)) end