module DupDef.Dd1 where toplevel :: Integer -> Integer toplevel x = c * x c,d :: Integer c = 7 d = 9 -- Pattern bind tup :: (Int, Int) h :: Int t :: Int tup@(h,t) = head $ zip [1..10] [3..ff] where ff :: Int ff = 15 data D = A | B String | C ff y = y + zz where zz = 1 nn = 1 l z = let ll = 34 in ll + z dd q = do let ss = 5 return (ss + q)