(;module:
  lux
  (lux (control [monad #+ do])
       (data text/format)
       [macro "lux/" Monad<Lux>])
  (luxc (lang ["ls" synthesis])
        (generator [";G" common]
                   [";G" function]
                   (host ["$" jvm]
                         (jvm ["$t" type]
                              ["$i" inst])))))

(def: $Object $;Type ($t;class "java.lang.Object" (list)))

(def: #export (generate-captured variable)
  (-> ls;Variable (Lux $;Inst))
  (do macro;Monad<Lux>
    [function-class commonG;function]
    (wrap (|>. ($i;ALOAD +0)
               ($i;GETFIELD function-class
                            (|> variable i.inc (i.* -1) int-to-nat functionG;captured)
                            $Object)))))

(def: #export (generate-variable variable)
  (-> ls;Variable (Lux $;Inst))
  (lux/wrap ($i;ALOAD (int-to-nat variable))))