parse :: String -> Map String String
parse inp = 
    let bks = filter (/="") . splitBy (=='>') $ inp
    in  Map.fromList (map parseSingle bks)
parse :: String -> Map String String
parse inp = 
    let bks = filter (/="") . splitBy (=='>') $ inp
    in  Map.fromList (map parseSingle bks)
parse inp = 
    let bks = filter (/="") . splitBy (=='>') $ inp
    in  Map.fromList (map parseSingle bks)