; print a table
(fn pprint [tbl]
(each [k v (pairs tbl)]
(let [table? (= (type v) :table)]
(print k v))))
{: pprint}