xenophobia · July 6, 2012 13:54
diff --git a/gistfile1.txt b/gistfile1.txt
 (define $take
  (lambda [$n $l]
    (match l (List Something)
      {[(loop $l $i (between 1 n) <cons $a_i l> _) (loop $l $i (between 1 n) {a_i@l} {})]})))
	(define $take
	(lambda [$n $l]
	(match l (List Something)
	{[(loop $l $i (between 1 n) <cons $a_i l> _) (loop $l $i (between 1 n) {a_i@l} {})]})))