cutLine (l:ls)   chunk False
     | isBlank l = if chunk == "" then cutLine ls "" False
                   else chunk : cutLine ls "" False
     | otherwise = cutLine ls (chunk ++ [l]) False
    where isBlank ' '  = True
          isBlank '\t' = True
          isBlank '\n' = True
          isBlank  _   = False
cutLine (l:ls)   chunk False
     | isBlank l = if chunk == "" then cutLine ls "" False
                   else chunk : cutLine ls "" False
     | otherwise = cutLine ls (chunk ++ [l]) False
    where isBlank ' '  = True
          isBlank '\t' = True
          isBlank '\n' = True
          isBlank  _   = False
cutLine (l:ls)   chunk False
     | isBlank l = if chunk == "" then cutLine ls "" False
                   else chunk : cutLine ls "" False
     | otherwise = cutLine ls (chunk ++ [l]) False
    where isBlank ' '  = True
          isBlank '\t' = True
          isBlank '\n' = True
          isBlank  _   = False