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