by@drafear
WA
823ms
open String let rec f s t=try print_endline s;f s(read_line()) with _->index s 'T'+1|>sub ((index t 'K'|>sub t 0)^make 99 '*') 0|>print_string let _=f(read_line())""
T K
T T T T T T T T T T T T T T T T T T T T T T T T T T T *****************************