1 shortLinesOnly <span class="sy0">::</span> <a href="http://haskell.org/ghc/docs/latest/html/libraries/base/Prelude.html#t:String"><span class="kw4">String</span></a> <span class="sy0">-></span> <a href="http://haskell.org/ghc/docs/latest/html/libraries/base/Prelude.html#t:String"><span class="kw4">String</span></a>
2 shortLinesOnly input <span class="sy0">=</span>
3 <span class="kw1">let</span> allLines <span class="sy0">=</span> <a href="http://haskell.org/ghc/docs/latest/html/libraries/base/Prelude.html#v:lines"><span class="kw3">lines</span></a> input
4 shortLines <span class="sy0">=</span> <a href="http://haskell.org/ghc/docs/latest/html/libraries/base/Prelude.html#v:filter"><span class="kw3">filter</span></a> <span class="br0">(</span>\line <span class="sy0">-></span> <a href="http://haskell.org/ghc/docs/latest/html/libraries/base/Prelude.html#v:length"><span class="kw3">length</span></a> line <span class="sy0"><</span> 10<span class="br0">)</span> allLines
5 result <span class="sy0">=</span> <a href="http://haskell.org/ghc/docs/latest/html/libraries/base/Prelude.html#v:unlines"><span class="kw3">unlines</span></a> shortLines
6 <span class="kw1">in</span> result