
open Scanf
open Printf

let flip f x y = f y x

let rec range a b = if a >= b then [] else a :: range (a+1) b

let read_int () = scanf " %d" (fun x -> x)
let rec read_ints n = if n = 0 then [] else let i = read_int () in i :: read_ints (n-1)

let () =
  let a = scanf " %s" (fun s -> s) in
  let b = scanf " %s" (fun s -> s) in
  let ab = sprintf "%s%s" a b in
  let v = sscanf ab "%f" (fun v -> v) in
  let v_int = int_of_float v in
  printf "%s\n" (if int_of_float (sqrt v *. sqrt v) = v_int then "Yes" else "No")
