splitNull s  = case suf of
                 "" -> [pre]
                 _  -> pre : (splitNull $ tail suf)
    where (pre, suf) = break (\c -> ord c == 0) s
splitNull s  = case suf of
                 "" -> [pre]
                 _  -> pre : (splitNull $ tail suf)
    where (pre, suf) = break (\c -> ord c == 0) s
splitNull s  = case suf of
                 "" -> [pre]
                 _  -> pre : (splitNull $ tail suf)
    where (pre, suf) = break (\c -> ord c == 0) s