Implement a "take" function to read subsequences of a list

Basically a wrapper over subseq but for when using `->>` as the list
is the last parameter.

packages.lisp

@@ -21,15 +21,15 @@
   (:use :cl)
   (:export
    :_ :--> :->>
-   :while
    :-> :fn
+   :while
    :$))
 
 (defpackage lib.functions
   (:use :cl :lib.macros)
   (:export
-   :range
-   :parse-integer*))
+   :parse-integer*
+   :range :take))
 
 (defpackage main
   (:use :cl :lib.macros)