module Main where

fn3 f = \x -> \y -> if (y == 0) then x else f y (rem x y)
fpc f = f (fpc f)

divisor = fpc fn3

main = print (divisor 72 81)

9