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
Note that non-ascii characters in the above source code will be escaped (such as \x9f).