maybeHead :: [a] -> Maybe a
maybeHead xs =
    let x = take 1 xs in
    if length x == 1 then Just $ head x else Nothing
maybeHead :: [a] -> Maybe a
maybeHead xs =
    let x = take 1 xs in
    if length x == 1 then Just $ head x else Nothing
maybeHead xs =
    let x = take 1 xs in
    if length x == 1 then Just $ head x else Nothing