title: Implement the take function with list comprehension
body: <p>How would you implement <code>take</code> with a list comprehension?</p>
  
  <p>My approach so far:</p>
  
  <pre><code>take2 :: (Num i, Ord i) =&gt; i -&gt; [a] -&gt; [a]
  take2 n xs = [x | x &lt;- xs, [x..n]]
  </code></pre>