Pattern Matching

Programmieren Sie das logische Und:

und :: Bool -> Bool -> Bool
und x y = case x of
   ...

Geben Sie eine möglichst einfache Funktion f an (Typ und Implementierung), die diese Tests erfüllt:

f (Just 3) (Just 4) == Just 7
f (Just 5) Nothing == Nothing
f Nothing (Just 6) == Just 6

Im Quelltext sollen keine Zahlen-Literale vorkommen.