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

        HCO3-label (JLabel. "HCO3")
        convert-button (JButton. "Interpret")
        no-label (JLabel. "")
        fahrenheit-label (JLabel. "ABG Interpretation:")]
    (.addActionListener
     convert-button
     (reify ActionListener 

        '(java.awt GridLayout)
        '(quexotic.org Abg))

(defn abg []
  (let [frame (JFrame. "Arterial blood gas interpretation")
        pH-text (JTextField.)
        pH-label (JLabel. "pH")
