; return the first item in a table
(fn head [t] (if (> (length t) 0)
               (?. t 1)
               []))

{: head}