Scanf.scanf "%s %s" (fun a b ->
    let n = int_of_string (a ^ b) in

    let rec loop i =
        if i * i > n then "No" else
            if i * i = n then "Yes" else loop (i + 1)
    in
    loop 1 |> print_endline
)