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

{: pprint}