listBlockReplace url = let (a, b) = break (=='\\') url in
    a ++ (listBlockChar (take 4 b)) ++ (listBlockReplace (drop 4 b))
listBlockReplace url = let (a, b) = break (=='\\') url in
    a ++ (listBlockChar (take 4 b)) ++ (listBlockReplace (drop 4 b))
listBlockReplace url = let (a, b) = break (=='\\') url in
    a ++ (listBlockChar (take 4 b)) ++ (listBlockReplace (drop 4 b))