n = 1::Int main = do let n1 = (n `div` 2) let n2 = n - n1 print n1 print n2