There is always this alternative: don&#x27;t have any variables to name!<p><pre><code>  (defun print-first-n-pos (n seq)
    [(opip (take n)
           (keep-if [orf zerop plusp])
           (progn
             (mapdo (op put-string `@1 `) @1)
             (put-line)
             @1)
           (- n (length @1)))
     seq])


  $ txr -i first-n-pos.tl
  1&gt; (print-first-n-pos 4 &#x27;(-1 2 3 4 5 6))
  2 3 4 
  1
  2&gt; (print-first-n-pos 5 &#x27;(-1 -2 3 4 -5 6))
  3 4 
  3
</code></pre>
Well, @1 is technically a variable. :)