1 2 3 4 5
module Safe where firstItem :: [Int] -> Maybe Int firstItem [] = Nothing firstItem (x : _) = Just x