dropPrefix :: [Char] -> [Char] -> [Char]
dropPrefix pre list =
    case stripPrefix pre list of
     Nothing -> error $ "Can't strip prefix " ++ pre ++ " from " ++ list
     Just l -> l
dropPrefix :: [Char] -> [Char] -> [Char]
dropPrefix pre list =
    case stripPrefix pre list of
     Nothing -> error $ "Can't strip prefix " ++ pre ++ " from " ++ list
     Just l -> l
dropPrefix pre list =
    case stripPrefix pre list of
     Nothing -> error $ "Can't strip prefix " ++ pre ++ " from " ++ list
     Just l -> l