-- | Checks if two maybe strings are both nothing or of equal length.
sameLength :: Maybe String -> Maybe String -> Bool
sameLength Nothing Nothing = True
sameLength :: Maybe String -> Maybe String -> Bool
sameLength Nothing Nothing = True
sameLength Nothing Nothing = True