>>> S.print $ S.dropWhile ((< 5) . length) S.stdinLn one<Enter> two<Enter> three<Enter> "three" four<Enter> "four" ^CInterrupted.