  where d  = x `div` 100
        d2 = d `mod` 10  

foldBool :: a -> a -> Bool -> a
foldBool x y bool =
  case bool of
    True -> x
    False -> y

foldBool' :: a -> a -> Bool -> a
foldBool' x y bool 
  | bool == True = x
  | bool == False = y

g :: (a -> b) -> (a, c) -> (b, c)