open Scanf ;;
open Printf ;;

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

let rec product a b = List.map (fun x -> List.map (fun y -> (x, y)) b) a |> List.flatten;;

let can n = 
  List.exists (fun (i, j) -> i * j = n) (product (iota 1 9) (iota 1 9)) ;;

let () =
  let n = scanf "%d" (fun x -> x) in
  if can n
    then print_endline "Yes"
    else print_endline "No"

