ascendingOrder :: Int -> Int -> Bool 
ascendingOrder x y = (x<=y) 
{- should be correct.... .lhs is not supported  -}