data/cache/3/328bb6795d3db9b7317b2696c32db568.code

   1 <span class="kw1">import</span> Control<span class="sy0">.</span><a href="http://haskell.org/ghc/docs/latest/html/libraries/base/Prelude.html#t:Monad"><span class="kw4">Monad</span></a>
   2 &nbsp;
   3 main <span class="sy0">=</span> <span class="kw1">do</span>
   4   c <span class="sy0">&lt;-</span> <a href="http://haskell.org/ghc/docs/latest/html/libraries/base/Prelude.html#v:getChar"><span class="kw3">getChar</span></a>
   5   when <span class="br0">&#40;</span>c <span class="sy0">/=</span> ' '<span class="br0">&#41;</span> <span class="sy0">$</span> <span class="kw1">do</span>
   6     <a href="http://haskell.org/ghc/docs/latest/html/libraries/base/Prelude.html#v:putChar"><span class="kw3">putChar</span></a> c
   7     main
   8 &nbsp;
   9 main <span class="sy0">=</span> <a href="http://haskell.org/ghc/docs/latest/html/libraries/base/Prelude.html#v:interact"><span class="kw3">interact</span></a> shortLinesOnly