Scanf.scanf "%s" (fun s -> let n = String.length s in for i = 0 to n - 1 do if s.[i] = '?' then Printf.printf "%c\n" "yukicoder".[i] done )