let N = stdin.ReadLine().Trim() |> int let limit = N |> float |> sqrt |> ceil |> int let ss = [ for i in 2 .. limit do if i*i <= 64 then yield i*i ] let cs = [ for i in 2 .. limit do if i*i*i <= 64 then yield i*i*i ] let ns = List.except ss [ 0 .. 64 ] |> List.except cs let isPrime n = let limit = n |> float |> sqrt |> ceil |> int let rec check i = if i > limit then true elif n % i = 0 then false else check (i+2) if n <= 1 then false else if n = 2 then true else if n % 2 = 0 then false else check 3 let prims = [ for i in 2 .. 64 do if isPrime i then yield i ] let ps = [6; 28] if List.exists ((=) N) ss then printfn "Heihosu!" elif List.exists ((=) N) cs then printfn "Ripposu!" elif List.exists ((=) N) prims then printfn "Sosu!" elif List.exists ((=) N) ps then printfn "Kanzensu!" else printfn "%d" N