open String let rec(@)s?(n=length s.(0))p=p+79<n&s@p+1=print_newline(Array.iteri(fun i l->let r=sub l p 80in i=3&r.[50]='#'&()=r.[50]<-'*';print_endline r)s);()and q=make 79 ' ';;Array.init 7(fun _->q^read_line()^q)@0
Note that non-ascii characters in the above source code will be escaped (such as \x9f).