open String
let rec($)m l?(s=read_line())n=try
contains s '*'&(min(index s '*')m$l@[s])(max(rindex s '*')n)||n>0&(m$l@[s])n||(m$l)0with
_->[]<List.map(fun s->print_endline(sub s m(n-m+1)))l;;(99$[])0