remPrefixNamedRecord :: String -> NamedRecord -> NamedRecord
remPrefixNamedRecord n xs = HashMap.fromList $ aux $ HashMap.toList xs
    where
    aux [] = []
    aux ((k,v):xs) = case stripPrefix n (show k) of
        Nothing -> aux xs
        Just k' -> (fromString k',v) : aux xs
remPrefixNamedRecord :: String -> NamedRecord -> NamedRecord
remPrefixNamedRecord n xs = HashMap.fromList $ aux $ HashMap.toList xs
    where
    aux [] = []
    aux ((k,v):xs) = case stripPrefix n (show k) of
        Nothing -> aux xs
        Just k' -> (fromString k',v) : aux xs
remPrefixNamedRecord n xs = HashMap.fromList $ aux $ HashMap.toList xs
    where
    aux [] = []
    aux ((k,v):xs) = case stripPrefix n (show k) of
        Nothing -> aux xs
        Just k' -> (fromString k',v) : aux xs