let solve a s = let aarr = Array.init (String.length a) (fun i -> a.[i]) and sarr = Array.init (String.length s) (fun i -> s.[i]) in let ansArr = Array.map (function | '0' .. '9' as c -> int_of_char c |> fun i -> aarr.(i - 48) | c -> c) sarr in String.init (Array.length ansArr) (fun i -> ansArr.(i)) let () = let a = read_line() and s = read_line() in solve a s |> print_endline