Nothing = liftT (Left $ Error $ concat ["PANIC: ", k, " not found as var"])
Just (LAB t) = liftT (Left $ Error $ "PANIC: cannot assign to function")
Just (ADDR t) = tell [Instr "stl" [Lit t] ""]
Nothing = liftT (Left $ Error $ concat ["PANIC: ", k, " not found as var"])
Just (LAB t) = liftT (Left $ Error $ "PANIC: cannot assign to function")
Just (ADDR t) = tell [Instr "stl" [Lit t] ""]