(defn mkpage []
  (var db (sqlite3/open "keys.db"))
  (var keys
       (sqlite3/eval
        db
        (string
         "SELECT DISTINCT(keyword) from keywords "
         "WHERE keyword is NOT '' "
         "ORDER by keyword ASC;")))

  (each k keys
    (var pages
         (sqlite3/eval
          db
          (string "SELECT DISTINCT(page) FROM keywords where keyword is '"
                  (k "keyword") "';")))
    (org
     (string
      (string/replace-all "_" "_" (k "keyword")) ": "))
    (ref ((pages 0) "page"))
    (for i 1 (length pages)
      (org ", ")
      (ref ((pages i) "page")))
    (org "\n"))
  (sqlite3/close db))