(module (menu)
    ()
  (import (scheme)
          (chicken base)
          (chicken irregex)
          (chicken process-context))
  (include-relative "./menu-impl.scm")
  (change-directory
   (irregex-match-substring (irregex-search '(: bos (* any) #\/) (executable-pathname))))
  (main))