(fn dump-contents [filename]
  (let [f (assert (io.open filename))
        contents (f:read "*all")]
    (f:close)
    contents))

{
 :name "rules"

 :display (fn [p]
            (print (dump-contents "mode/rules.txt"))
            )

 :key-pressed (fn key-pressed [p k set-mode]
                (set-mode :mode.menu)
                )
 }