    [:entry_point "varchar(50)"]
    [:created "varchar(50)" "NOT NULL"]
    [:updated "varchar(50)" "NOT NULL"]])
+
+(def head-tentacle-schema
+  [[:head-name "varchar(50)" "FOREIGN KEY"]
+   [:tentacle-name "varchar(50)" "FOREIGN KEY"]])
 
 (defn- create-table!
   "creates a table with a given name and schema"

(defn bootstrap
  "checks for the presence of tables and creates them if necessary"
  []
  (do
   (when (not (table-created? "heads"))
     (create-table! "heads" head-schema))
   (when (not (table-created? "tentacles"))
     (create-table! "tentacles" tentacle-schema))))


(def tentacle-schema
  [[:name "varchar(50)" "PRIMARY KEY"]
;   [:head_name "varchar(50)"]
   [:output_root "varchar(50)"]
   [:html_commands "varchar(250)"]
   [:source_control "varchar(50)"]
