(defpackage :cconv
  (:use :common-lisp :ltk)
  (:export #:main))

(in-package :cconv)

(defun main ()
  (setf *debug-tk* nil)
  (with-ltk ()
    (wm-title "." "Feet to Meters")
    ()))