let () =
  let rec charlist_of_string str n i =
    if i = n then [] else str.[i] :: charlist_of_string str n (i+1) in
  Scanf.scanf "%s\n%s\n" @@ fun s t ->
  let slst = charlist_of_string s (String.length s) 0 in
  let tlst = charlist_of_string t (String.length t) 0 in
  let ans = ref max_int in
  let rec check lst1 lst2 ans = match lst1, lst2 with
    | [], [] -> ans
    | _,  [] -> raise Not_found
    | [], _  -> raise Not_found
    | h1 :: t1, h2 :: t2 -> if h1 = h2 then check t1 t2 ans else check t1 t2 (ans + 1) in
  for start = 0 to (String.length s) - (String.length t) - 1 do
    let buf = check (Array.to_list (Array.sub (Array.of_list slst) start (String.length t))) tlst 0 in
    if buf < !ans then ans := buf
  done;
  Printf.printf "%d\n" !ans