         '(java.awt GridLayout)
         '(quexotic.org Abg))
 
-(defn celsius []
+(defn abg []
   (let [frame (JFrame. "Arterial blood gas interpretation")
         pH-text (JTextField.)
         pH-label (JLabel. "pH")

      (.add HCO3-label)
      (.add convert-button)
      (.add no-label)
      (.add fahrenheit-label)
      (.setSize 300 480)
      (.setVisible true))))
(celsius)



             (let [pH (Double/parseDouble (.getText pH-text))
                   pCO2 (Double/parseDouble (.getText pCO2-text))
                   HCO3 (Double/parseDouble (.getText HCO3-text))]
               (.setText abg-label
                         (Abg/interpret pH pCO2 HCO3))))))
    (doto frame
      (.setLayout (GridLayout. 6 1 3 3))
