((env continue)
 (env proc argl continue val)
 ((save continue)
  (assign val (op lookup-variable-value) (const apply) (reg env))
  (perform (op define-variable!)
           (const apply-in-underlying-scheme)
           (reg val)
           (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry981) (reg env))
  (goto (label after-lambda980))
  entry981
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (exp env)) (reg argl) (reg env))
  (save continue)
  (save env)
  (assign proc (op lookup-variable-value) (const self-evaluating?) (reg env))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch1095))
  compiled-branch1094
  (assign continue (label after-call1093))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch1095
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call1093
  (restore env)
  (restore continue)
  (test (op false?) (reg val))
  (branch (label false-branch983))
  true-branch984
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (goto (reg continue))
  false-branch983
  (save continue)
  (save env)
  (assign proc (op lookup-variable-value) (const variable?) (reg env))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch1092))
  compiled-branch1091
  (assign continue (label after-call1090))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch1092
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call1090
  (restore env)
  (restore continue)
  (test (op false?) (reg val))
  (branch (label false-branch986))
  true-branch987
  (assign proc
          (op lookup-variable-value)
          (const lookup-variable-value)
          (reg env))
  (assign val (op lookup-variable-value) (const env) (reg env))
  (assign argl (op list) (reg val))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op cons) (reg val) (reg argl))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch1089))
  compiled-branch1088
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch1089
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call1087
  false-branch986
  (save continue)
  (save env)
  (assign proc (op lookup-variable-value) (const quoted?) (reg env))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch1086))
  compiled-branch1085
  (assign continue (label after-call1084))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch1086
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call1084
  (restore env)
  (restore continue)
  (test (op false?) (reg val))
  (branch (label false-branch989))
  true-branch990
  (assign proc (op lookup-variable-value) (const text-of-quotation) (reg env))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch1083))
  compiled-branch1082
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch1083
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call1081
  false-branch989
  (save continue)
  (save env)
  (assign proc (op lookup-variable-value) (const assignment?) (reg env))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch1080))
  compiled-branch1079
  (assign continue (label after-call1078))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch1080
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call1078
  (restore env)
  (restore continue)
  (test (op false?) (reg val))
  (branch (label false-branch992))
  true-branch993
  (assign proc (op lookup-variable-value) (const eval-assignment) (reg env))
  (assign val (op lookup-variable-value) (const env) (reg env))
  (assign argl (op list) (reg val))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op cons) (reg val) (reg argl))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch1077))
  compiled-branch1076
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch1077
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call1075
  false-branch992
  (save continue)
  (save env)
  (assign proc (op lookup-variable-value) (const definition?) (reg env))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch1074))
  compiled-branch1073
  (assign continue (label after-call1072))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch1074
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call1072
  (restore env)
  (restore continue)
  (test (op false?) (reg val))
  (branch (label false-branch995))
  true-branch996
  (assign proc (op lookup-variable-value) (const eval-definition) (reg env))
  (assign val (op lookup-variable-value) (const env) (reg env))
  (assign argl (op list) (reg val))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op cons) (reg val) (reg argl))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch1071))
  compiled-branch1070
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch1071
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call1069
  false-branch995
  (save continue)
  (save env)
  (assign proc (op lookup-variable-value) (const if?) (reg env))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch1068))
  compiled-branch1067
  (assign continue (label after-call1066))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch1068
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call1066
  (restore env)
  (restore continue)
  (test (op false?) (reg val))
  (branch (label false-branch998))
  true-branch999
  (assign proc (op lookup-variable-value) (const eval-if) (reg env))
  (assign val (op lookup-variable-value) (const env) (reg env))
  (assign argl (op list) (reg val))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op cons) (reg val) (reg argl))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch1065))
  compiled-branch1064
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch1065
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call1063
  false-branch998
  (save continue)
  (save env)
  (assign proc (op lookup-variable-value) (const lambda?) (reg env))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch1062))
  compiled-branch1061
  (assign continue (label after-call1060))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch1062
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call1060
  (restore env)
  (restore continue)
  (test (op false?) (reg val))
  (branch (label false-branch1001))
  true-branch1002
  (assign proc (op lookup-variable-value) (const make-procedure) (reg env))
  (save continue)
  (save proc)
  (assign val (op lookup-variable-value) (const env) (reg env))
  (assign argl (op list) (reg val))
  (save env)
  (save argl)
  (assign proc (op lookup-variable-value) (const lambda-body) (reg env))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch1056))
  compiled-branch1055
  (assign continue (label after-call1054))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch1056
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call1054
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore env)
  (save argl)
  (assign proc (op lookup-variable-value) (const lambda-parameters) (reg env))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch1053))
  compiled-branch1052
  (assign continue (label after-call1051))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch1053
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call1051
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (restore continue)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch1059))
  compiled-branch1058
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch1059
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call1057
  false-branch1001
  (save continue)
  (save env)
  (assign proc (op lookup-variable-value) (const begin?) (reg env))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch1050))
  compiled-branch1049
  (assign continue (label after-call1048))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch1050
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call1048
  (restore env)
  (restore continue)
  (test (op false?) (reg val))
  (branch (label false-branch1004))
  true-branch1005
  (assign proc (op lookup-variable-value) (const eval-sequence) (reg env))
  (save continue)
  (save proc)
  (assign val (op lookup-variable-value) (const env) (reg env))
  (assign argl (op list) (reg val))
  (save argl)
  (assign proc (op lookup-variable-value) (const begin-actions) (reg env))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch1044))
  compiled-branch1043
  (assign continue (label after-call1042))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch1044
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call1042
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (restore continue)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch1047))
  compiled-branch1046
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch1047
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call1045
  false-branch1004
  (save continue)
  (save env)
  (assign proc (op lookup-variable-value) (const cond?) (reg env))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch1041))
  compiled-branch1040
  (assign continue (label after-call1039))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch1041
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call1039
  (restore env)
  (restore continue)
  (test (op false?) (reg val))
  (branch (label false-branch1007))
  true-branch1008
  (assign proc (op lookup-variable-value) (const eval) (reg env))
  (save continue)
  (save proc)
  (assign val (op lookup-variable-value) (const env) (reg env))
  (assign argl (op list) (reg val))
  (save argl)
  (assign proc (op lookup-variable-value) (const cond->if) (reg env))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch1035))
  compiled-branch1034
  (assign continue (label after-call1033))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch1035
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call1033
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (restore continue)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch1038))
  compiled-branch1037
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch1038
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call1036
  false-branch1007
  (save continue)
  (save env)
  (assign proc (op lookup-variable-value) (const application?) (reg env))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch1032))
  compiled-branch1031
  (assign continue (label after-call1030))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch1032
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call1030
  (restore env)
  (restore continue)
  (test (op false?) (reg val))
  (branch (label false-branch1010))
  true-branch1011
  (assign proc (op lookup-variable-value) (const apply) (reg env))
  (save continue)
  (save proc)
  (save env)
  (assign proc (op lookup-variable-value) (const list-of-values) (reg env))
  (save proc)
  (assign val (op lookup-variable-value) (const env) (reg env))
  (assign argl (op list) (reg val))
  (save argl)
  (assign proc (op lookup-variable-value) (const operands) (reg env))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch1023))
  compiled-branch1022
  (assign continue (label after-call1021))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch1023
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call1021
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch1026))
  compiled-branch1025
  (assign continue (label after-call1024))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch1026
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call1024
  (assign argl (op list) (reg val))
  (restore env)
  (save argl)
  (assign proc (op lookup-variable-value) (const eval) (reg env))
  (save proc)
  (assign val (op lookup-variable-value) (const env) (reg env))
  (assign argl (op list) (reg val))
  (save argl)
  (assign proc (op lookup-variable-value) (const operator) (reg env))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch1017))
  compiled-branch1016
  (assign continue (label after-call1015))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch1017
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call1015
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch1020))
  compiled-branch1019
  (assign continue (label after-call1018))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch1020
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call1018
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (restore continue)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch1029))
  compiled-branch1028
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch1029
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call1027
  false-branch1010
  (assign proc (op lookup-variable-value) (const error) (reg env))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op list) (reg val))
  (assign val (const "Unknown expression type -- EVAL"))
  (assign argl (op cons) (reg val) (reg argl))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch1014))
  compiled-branch1013
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch1014
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call1012
  after-if1009
  after-if1006
  after-if1003
  after-if1000
  after-if997
  after-if994
  after-if991
  after-if988
  after-if985
  after-if982
  after-lambda980
  (perform (op define-variable!) (const eval) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry946) (reg env))
  (goto (label after-lambda945))
  entry946
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env
          (op extend-environment)
          (const (procedure arguments))
          (reg argl)
          (reg env))
  (save continue)
  (save env)
  (assign proc
          (op lookup-variable-value)
          (const primitive-procedure?)
          (reg env))
  (assign val (op lookup-variable-value) (const procedure) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch979))
  compiled-branch978
  (assign continue (label after-call977))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch979
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call977
  (restore env)
  (restore continue)
  (test (op false?) (reg val))
  (branch (label false-branch948))
  true-branch949
  (assign proc
          (op lookup-variable-value)
          (const apply-primitive-procedure)
          (reg env))
  (assign val (op lookup-variable-value) (const arguments) (reg env))
  (assign argl (op list) (reg val))
  (assign val (op lookup-variable-value) (const procedure) (reg env))
  (assign argl (op cons) (reg val) (reg argl))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch976))
  compiled-branch975
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch976
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call974
  false-branch948
  (save continue)
  (save env)
  (assign proc
          (op lookup-variable-value)
          (const compound-procedure?)
          (reg env))
  (assign val (op lookup-variable-value) (const procedure) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch973))
  compiled-branch972
  (assign continue (label after-call971))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch973
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call971
  (restore env)
  (restore continue)
  (test (op false?) (reg val))
  (branch (label false-branch951))
  true-branch952
  (assign proc (op lookup-variable-value) (const eval-sequence) (reg env))
  (save continue)
  (save proc)
  (save env)
  (assign proc
          (op lookup-variable-value)
          (const extend-environment)
          (reg env))
  (save proc)
  (save env)
  (assign proc
          (op lookup-variable-value)
          (const procedure-environment)
          (reg env))
  (assign val (op lookup-variable-value) (const procedure) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch964))
  compiled-branch963
  (assign continue (label after-call962))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch964
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call962
  (assign argl (op list) (reg val))
  (restore env)
  (assign val (op lookup-variable-value) (const arguments) (reg env))
  (assign argl (op cons) (reg val) (reg argl))
  (save argl)
  (assign proc
          (op lookup-variable-value)
          (const procedure-parameters)
          (reg env))
  (assign val (op lookup-variable-value) (const procedure) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch961))
  compiled-branch960
  (assign continue (label after-call959))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch961
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call959
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch967))
  compiled-branch966
  (assign continue (label after-call965))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch967
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call965
  (assign argl (op list) (reg val))
  (restore env)
  (save argl)
  (assign proc (op lookup-variable-value) (const procedure-body) (reg env))
  (assign val (op lookup-variable-value) (const procedure) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch958))
  compiled-branch957
  (assign continue (label after-call956))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch958
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call956
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (restore continue)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch970))
  compiled-branch969
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch970
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call968
  false-branch951
  (assign proc (op lookup-variable-value) (const error) (reg env))
  (assign val (op lookup-variable-value) (const procedure) (reg env))
  (assign argl (op list) (reg val))
  (assign val (const "Unknown procedure type -- APPLY"))
  (assign argl (op cons) (reg val) (reg argl))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch955))
  compiled-branch954
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch955
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call953
  after-if950
  after-if947
  after-lambda945
  (perform (op define-variable!) (const apply) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry923) (reg env))
  (goto (label after-lambda922))
  entry923
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (exps env)) (reg argl) (reg env))
  (save continue)
  (save env)
  (assign proc (op lookup-variable-value) (const no-operands?) (reg env))
  (assign val (op lookup-variable-value) (const exps) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch944))
  compiled-branch943
  (assign continue (label after-call942))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch944
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call942
  (restore env)
  (restore continue)
  (test (op false?) (reg val))
  (branch (label false-branch925))
  true-branch926
  (assign val (const ()))
  (goto (reg continue))
  false-branch925
  (assign proc (op lookup-variable-value) (const cons) (reg env))
  (save continue)
  (save proc)
  (save env)
  (assign proc (op lookup-variable-value) (const list-of-values) (reg env))
  (save proc)
  (assign val (op lookup-variable-value) (const env) (reg env))
  (assign argl (op list) (reg val))
  (save argl)
  (assign proc (op lookup-variable-value) (const rest-operands) (reg env))
  (assign val (op lookup-variable-value) (const exps) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch935))
  compiled-branch934
  (assign continue (label after-call933))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch935
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call933
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch938))
  compiled-branch937
  (assign continue (label after-call936))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch938
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call936
  (assign argl (op list) (reg val))
  (restore env)
  (save argl)
  (assign proc (op lookup-variable-value) (const eval) (reg env))
  (save proc)
  (assign val (op lookup-variable-value) (const env) (reg env))
  (assign argl (op list) (reg val))
  (save argl)
  (assign proc (op lookup-variable-value) (const first-operand) (reg env))
  (assign val (op lookup-variable-value) (const exps) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch929))
  compiled-branch928
  (assign continue (label after-call927))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch929
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call927
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch932))
  compiled-branch931
  (assign continue (label after-call930))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch932
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call930
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (restore continue)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch941))
  compiled-branch940
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch941
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call939
  after-if924
  after-lambda922
  (perform (op define-variable!) (const list-of-values) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry897) (reg env))
  (goto (label after-lambda896))
  entry897
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (exp env)) (reg argl) (reg env))
  (save continue)
  (save env)
  (assign proc (op lookup-variable-value) (const true?) (reg env))
  (save proc)
  (assign proc (op lookup-variable-value) (const eval) (reg env))
  (save proc)
  (assign val (op lookup-variable-value) (const env) (reg env))
  (assign argl (op list) (reg val))
  (save argl)
  (assign proc (op lookup-variable-value) (const if-predicate) (reg env))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch915))
  compiled-branch914
  (assign continue (label after-call913))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch915
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call913
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch918))
  compiled-branch917
  (assign continue (label after-call916))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch918
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call916
  (assign argl (op list) (reg val))
  (restore proc)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch921))
  compiled-branch920
  (assign continue (label after-call919))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch921
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call919
  (restore env)
  (restore continue)
  (test (op false?) (reg val))
  (branch (label false-branch899))
  true-branch900
  (assign proc (op lookup-variable-value) (const eval) (reg env))
  (save continue)
  (save proc)
  (assign val (op lookup-variable-value) (const env) (reg env))
  (assign argl (op list) (reg val))
  (save argl)
  (assign proc (op lookup-variable-value) (const if-consequent) (reg env))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch909))
  compiled-branch908
  (assign continue (label after-call907))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch909
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call907
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (restore continue)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch912))
  compiled-branch911
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch912
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call910
  false-branch899
  (assign proc (op lookup-variable-value) (const eval) (reg env))
  (save continue)
  (save proc)
  (assign val (op lookup-variable-value) (const env) (reg env))
  (assign argl (op list) (reg val))
  (save argl)
  (assign proc (op lookup-variable-value) (const if-alternative) (reg env))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch903))
  compiled-branch902
  (assign continue (label after-call901))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch903
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call901
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (restore continue)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch906))
  compiled-branch905
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch906
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call904
  after-if898
  after-lambda896
  (perform (op define-variable!) (const eval-if) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry871) (reg env))
  (goto (label after-lambda870))
  entry871
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (exps env)) (reg argl) (reg env))
  (save continue)
  (save env)
  (assign proc (op lookup-variable-value) (const last-exp?) (reg env))
  (assign val (op lookup-variable-value) (const exps) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch895))
  compiled-branch894
  (assign continue (label after-call893))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch895
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call893
  (restore env)
  (restore continue)
  (test (op false?) (reg val))
  (branch (label false-branch873))
  true-branch874
  (assign proc (op lookup-variable-value) (const eval) (reg env))
  (save continue)
  (save proc)
  (assign val (op lookup-variable-value) (const env) (reg env))
  (assign argl (op list) (reg val))
  (save argl)
  (assign proc (op lookup-variable-value) (const first-exp) (reg env))
  (assign val (op lookup-variable-value) (const exps) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch889))
  compiled-branch888
  (assign continue (label after-call887))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch889
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call887
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (restore continue)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch892))
  compiled-branch891
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch892
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call890
  false-branch873
  (save continue)
  (save env)
  (assign proc (op lookup-variable-value) (const eval) (reg env))
  (save proc)
  (assign val (op lookup-variable-value) (const env) (reg env))
  (assign argl (op list) (reg val))
  (save argl)
  (assign proc (op lookup-variable-value) (const first-exp) (reg env))
  (assign val (op lookup-variable-value) (const exps) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch883))
  compiled-branch882
  (assign continue (label after-call881))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch883
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call881
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch886))
  compiled-branch885
  (assign continue (label after-call884))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch886
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call884
  (restore env)
  (restore continue)
  (assign proc (op lookup-variable-value) (const eval-sequence) (reg env))
  (save continue)
  (save proc)
  (assign val (op lookup-variable-value) (const env) (reg env))
  (assign argl (op list) (reg val))
  (save argl)
  (assign proc (op lookup-variable-value) (const rest-exps) (reg env))
  (assign val (op lookup-variable-value) (const exps) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch877))
  compiled-branch876
  (assign continue (label after-call875))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch877
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call875
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (restore continue)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch880))
  compiled-branch879
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch880
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call878
  after-if872
  after-lambda870
  (perform (op define-variable!) (const eval-sequence) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry857) (reg env))
  (goto (label after-lambda856))
  entry857
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (exp env)) (reg argl) (reg env))
  (save continue)
  (assign proc
          (op lookup-variable-value)
          (const set-variable-value!)
          (reg env))
  (save proc)
  (assign val (op lookup-variable-value) (const env) (reg env))
  (assign argl (op list) (reg val))
  (save env)
  (save argl)
  (assign proc (op lookup-variable-value) (const eval) (reg env))
  (save proc)
  (assign val (op lookup-variable-value) (const env) (reg env))
  (assign argl (op list) (reg val))
  (save argl)
  (assign proc (op lookup-variable-value) (const assignment-value) (reg env))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch863))
  compiled-branch862
  (assign continue (label after-call861))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch863
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call861
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch866))
  compiled-branch865
  (assign continue (label after-call864))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch866
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call864
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore env)
  (save argl)
  (assign proc
          (op lookup-variable-value)
          (const assignment-variable)
          (reg env))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch860))
  compiled-branch859
  (assign continue (label after-call858))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch860
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call858
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch869))
  compiled-branch868
  (assign continue (label after-call867))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch869
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call867
  (restore continue)
  (assign val (const ok))
  (goto (reg continue))
  after-lambda856
  (perform (op define-variable!) (const eval-assignment) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry843) (reg env))
  (goto (label after-lambda842))
  entry843
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (exp env)) (reg argl) (reg env))
  (save continue)
  (assign proc (op lookup-variable-value) (const define-variable!) (reg env))
  (save proc)
  (assign val (op lookup-variable-value) (const env) (reg env))
  (assign argl (op list) (reg val))
  (save env)
  (save argl)
  (assign proc (op lookup-variable-value) (const eval) (reg env))
  (save proc)
  (assign val (op lookup-variable-value) (const env) (reg env))
  (assign argl (op list) (reg val))
  (save argl)
  (assign proc (op lookup-variable-value) (const definition-value) (reg env))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch849))
  compiled-branch848
  (assign continue (label after-call847))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch849
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call847
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch852))
  compiled-branch851
  (assign continue (label after-call850))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch852
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call850
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore env)
  (save argl)
  (assign proc
          (op lookup-variable-value)
          (const definition-variable)
          (reg env))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch846))
  compiled-branch845
  (assign continue (label after-call844))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch846
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call844
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch855))
  compiled-branch854
  (assign continue (label after-call853))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch855
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call853
  (restore continue)
  (assign val (const ok))
  (goto (reg continue))
  after-lambda842
  (perform (op define-variable!) (const eval-definition) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry829) (reg env))
  (goto (label after-lambda828))
  entry829
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (exp)) (reg argl) (reg env))
  (save continue)
  (save env)
  (assign proc (op lookup-variable-value) (const number?) (reg env))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch841))
  compiled-branch840
  (assign continue (label after-call839))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch841
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call839
  (restore env)
  (restore continue)
  (test (op false?) (reg val))
  (branch (label false-branch831))
  true-branch832
  (assign val (op lookup-variable-value) (const true) (reg env))
  (goto (reg continue))
  false-branch831
  (save continue)
  (save env)
  (assign proc (op lookup-variable-value) (const string?) (reg env))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch838))
  compiled-branch837
  (assign continue (label after-call836))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch838
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call836
  (restore env)
  (restore continue)
  (test (op false?) (reg val))
  (branch (label false-branch834))
  true-branch835
  (assign val (op lookup-variable-value) (const true) (reg env))
  (goto (reg continue))
  false-branch834
  (assign val (op lookup-variable-value) (const false) (reg env))
  (goto (reg continue))
  after-if833
  after-if830
  after-lambda828
  (perform (op define-variable!) (const self-evaluating?) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry824) (reg env))
  (goto (label after-lambda823))
  entry824
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (exp)) (reg argl) (reg env))
  (assign proc (op lookup-variable-value) (const tagged-list?) (reg env))
  (assign val (const quote))
  (assign argl (op list) (reg val))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op cons) (reg val) (reg argl))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch827))
  compiled-branch826
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch827
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call825
  after-lambda823
  (perform (op define-variable!) (const quoted?) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry819) (reg env))
  (goto (label after-lambda818))
  entry819
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (exp)) (reg argl) (reg env))
  (assign proc (op lookup-variable-value) (const cadr) (reg env))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch822))
  compiled-branch821
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch822
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call820
  after-lambda818
  (perform (op define-variable!)
           (const text-of-quotation)
           (reg val)
           (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry805) (reg env))
  (goto (label after-lambda804))
  entry805
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (exp tag)) (reg argl) (reg env))
  (save continue)
  (save env)
  (assign proc (op lookup-variable-value) (const pair?) (reg env))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch817))
  compiled-branch816
  (assign continue (label after-call815))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch817
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call815
  (restore env)
  (restore continue)
  (test (op false?) (reg val))
  (branch (label false-branch807))
  true-branch808
  (assign proc (op lookup-variable-value) (const eq?) (reg env))
  (save continue)
  (save proc)
  (assign val (op lookup-variable-value) (const tag) (reg env))
  (assign argl (op list) (reg val))
  (save argl)
  (assign proc (op lookup-variable-value) (const car) (reg env))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch811))
  compiled-branch810
  (assign continue (label after-call809))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch811
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call809
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (restore continue)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch814))
  compiled-branch813
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch814
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call812
  false-branch807
  (assign val (op lookup-variable-value) (const false) (reg env))
  (goto (reg continue))
  after-if806
  after-lambda804
  (perform (op define-variable!) (const tagged-list?) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry800) (reg env))
  (goto (label after-lambda799))
  entry800
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (exp)) (reg argl) (reg env))
  (assign proc (op lookup-variable-value) (const symbol?) (reg env))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch803))
  compiled-branch802
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch803
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call801
  after-lambda799
  (perform (op define-variable!) (const variable?) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry795) (reg env))
  (goto (label after-lambda794))
  entry795
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (exp)) (reg argl) (reg env))
  (assign proc (op lookup-variable-value) (const tagged-list?) (reg env))
  (assign val (const set!))
  (assign argl (op list) (reg val))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op cons) (reg val) (reg argl))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch798))
  compiled-branch797
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch798
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call796
  after-lambda794
  (perform (op define-variable!) (const assignment?) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry790) (reg env))
  (goto (label after-lambda789))
  entry790
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (exp)) (reg argl) (reg env))
  (assign proc (op lookup-variable-value) (const cadr) (reg env))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch793))
  compiled-branch792
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch793
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call791
  after-lambda789
  (perform (op define-variable!)
           (const assignment-variable)
           (reg val)
           (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry785) (reg env))
  (goto (label after-lambda784))
  entry785
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (exp)) (reg argl) (reg env))
  (assign proc (op lookup-variable-value) (const caddr) (reg env))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch788))
  compiled-branch787
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch788
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call786
  after-lambda784
  (perform (op define-variable!) (const assignment-value) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry780) (reg env))
  (goto (label after-lambda779))
  entry780
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (exp)) (reg argl) (reg env))
  (assign proc (op lookup-variable-value) (const tagged-list?) (reg env))
  (assign val (const define))
  (assign argl (op list) (reg val))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op cons) (reg val) (reg argl))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch783))
  compiled-branch782
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch783
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call781
  after-lambda779
  (perform (op define-variable!) (const definition?) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry763) (reg env))
  (goto (label after-lambda762))
  entry763
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (exp)) (reg argl) (reg env))
  (save continue)
  (save env)
  (assign proc (op lookup-variable-value) (const symbol?) (reg env))
  (save proc)
  (assign proc (op lookup-variable-value) (const cadr) (reg env))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch775))
  compiled-branch774
  (assign continue (label after-call773))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch775
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call773
  (assign argl (op list) (reg val))
  (restore proc)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch778))
  compiled-branch777
  (assign continue (label after-call776))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch778
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call776
  (restore env)
  (restore continue)
  (test (op false?) (reg val))
  (branch (label false-branch765))
  true-branch766
  (assign proc (op lookup-variable-value) (const cadr) (reg env))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch772))
  compiled-branch771
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch772
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call770
  false-branch765
  (assign proc (op lookup-variable-value) (const caadr) (reg env))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch769))
  compiled-branch768
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch769
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call767
  after-if764
  after-lambda762
  (perform (op define-variable!)
           (const definition-variable)
           (reg val)
           (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry740) (reg env))
  (goto (label after-lambda739))
  entry740
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (exp)) (reg argl) (reg env))
  (save continue)
  (save env)
  (assign proc (op lookup-variable-value) (const symbol?) (reg env))
  (save proc)
  (assign proc (op lookup-variable-value) (const cadr) (reg env))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch758))
  compiled-branch757
  (assign continue (label after-call756))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch758
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call756
  (assign argl (op list) (reg val))
  (restore proc)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch761))
  compiled-branch760
  (assign continue (label after-call759))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch761
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call759
  (restore env)
  (restore continue)
  (test (op false?) (reg val))
  (branch (label false-branch742))
  true-branch743
  (assign proc (op lookup-variable-value) (const caddr) (reg env))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch755))
  compiled-branch754
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch755
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call753
  false-branch742
  (assign proc (op lookup-variable-value) (const make-lambda) (reg env))
  (save continue)
  (save proc)
  (save env)
  (assign proc (op lookup-variable-value) (const cddr) (reg env))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch749))
  compiled-branch748
  (assign continue (label after-call747))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch749
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call747
  (assign argl (op list) (reg val))
  (restore env)
  (save argl)
  (assign proc (op lookup-variable-value) (const cdadr) (reg env))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch746))
  compiled-branch745
  (assign continue (label after-call744))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch746
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call744
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (restore continue)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch752))
  compiled-branch751
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch752
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call750
  after-if741
  after-lambda739
  (perform (op define-variable!) (const definition-value) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry735) (reg env))
  (goto (label after-lambda734))
  entry735
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (exp)) (reg argl) (reg env))
  (assign proc (op lookup-variable-value) (const tagged-list?) (reg env))
  (assign val (const lambda))
  (assign argl (op list) (reg val))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op cons) (reg val) (reg argl))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch738))
  compiled-branch737
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch738
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call736
  after-lambda734
  (perform (op define-variable!) (const lambda?) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry730) (reg env))
  (goto (label after-lambda729))
  entry730
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (exp)) (reg argl) (reg env))
  (assign proc (op lookup-variable-value) (const cadr) (reg env))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch733))
  compiled-branch732
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch733
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call731
  after-lambda729
  (perform (op define-variable!)
           (const lambda-parameters)
           (reg val)
           (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry725) (reg env))
  (goto (label after-lambda724))
  entry725
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (exp)) (reg argl) (reg env))
  (assign proc (op lookup-variable-value) (const cddr) (reg env))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch728))
  compiled-branch727
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch728
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call726
  after-lambda724
  (perform (op define-variable!) (const lambda-body) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry717) (reg env))
  (goto (label after-lambda716))
  entry717
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env
          (op extend-environment)
          (const (parameters body))
          (reg argl)
          (reg env))
  (assign proc (op lookup-variable-value) (const cons) (reg env))
  (save continue)
  (save proc)
  (assign proc (op lookup-variable-value) (const cons) (reg env))
  (assign val (op lookup-variable-value) (const body) (reg env))
  (assign argl (op list) (reg val))
  (assign val (op lookup-variable-value) (const parameters) (reg env))
  (assign argl (op cons) (reg val) (reg argl))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch720))
  compiled-branch719
  (assign continue (label after-call718))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch720
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call718
  (assign argl (op list) (reg val))
  (assign val (const lambda))
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (restore continue)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch723))
  compiled-branch722
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch723
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call721
  after-lambda716
  (perform (op define-variable!) (const make-lambda) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry712) (reg env))
  (goto (label after-lambda711))
  entry712
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (exp)) (reg argl) (reg env))
  (assign proc (op lookup-variable-value) (const tagged-list?) (reg env))
  (assign val (const if))
  (assign argl (op list) (reg val))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op cons) (reg val) (reg argl))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch715))
  compiled-branch714
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch715
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call713
  after-lambda711
  (perform (op define-variable!) (const if?) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry707) (reg env))
  (goto (label after-lambda706))
  entry707
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (exp)) (reg argl) (reg env))
  (assign proc (op lookup-variable-value) (const cadr) (reg env))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch710))
  compiled-branch709
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch710
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call708
  after-lambda706
  (perform (op define-variable!) (const if-predicate) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry702) (reg env))
  (goto (label after-lambda701))
  entry702
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (exp)) (reg argl) (reg env))
  (assign proc (op lookup-variable-value) (const caddr) (reg env))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch705))
  compiled-branch704
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch705
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call703
  after-lambda701
  (perform (op define-variable!) (const if-consequent) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry685) (reg env))
  (goto (label after-lambda684))
  entry685
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (exp)) (reg argl) (reg env))
  (save continue)
  (save env)
  (assign proc (op lookup-variable-value) (const not) (reg env))
  (save proc)
  (assign proc (op lookup-variable-value) (const null?) (reg env))
  (save proc)
  (assign proc (op lookup-variable-value) (const cdddr) (reg env))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch694))
  compiled-branch693
  (assign continue (label after-call692))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch694
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call692
  (assign argl (op list) (reg val))
  (restore proc)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch697))
  compiled-branch696
  (assign continue (label after-call695))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch697
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call695
  (assign argl (op list) (reg val))
  (restore proc)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch700))
  compiled-branch699
  (assign continue (label after-call698))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch700
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call698
  (restore env)
  (restore continue)
  (test (op false?) (reg val))
  (branch (label false-branch687))
  true-branch688
  (assign proc (op lookup-variable-value) (const cadddr) (reg env))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch691))
  compiled-branch690
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch691
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call689
  false-branch687
  (assign val (const false))
  (goto (reg continue))
  after-if686
  after-lambda684
  (perform (op define-variable!) (const if-alternative) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry680) (reg env))
  (goto (label after-lambda679))
  entry680
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env
          (op extend-environment)
          (const (predicate consequent alternative))
          (reg argl)
          (reg env))
  (assign proc (op lookup-variable-value) (const list) (reg env))
  (assign val (op lookup-variable-value) (const alternative) (reg env))
  (assign argl (op list) (reg val))
  (assign val (op lookup-variable-value) (const consequent) (reg env))
  (assign argl (op cons) (reg val) (reg argl))
  (assign val (op lookup-variable-value) (const predicate) (reg env))
  (assign argl (op cons) (reg val) (reg argl))
  (assign val (const if))
  (assign argl (op cons) (reg val) (reg argl))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch683))
  compiled-branch682
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch683
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call681
  after-lambda679
  (perform (op define-variable!) (const make-if) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry675) (reg env))
  (goto (label after-lambda674))
  entry675
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (exp)) (reg argl) (reg env))
  (assign proc (op lookup-variable-value) (const tagged-list?) (reg env))
  (assign val (const begin))
  (assign argl (op list) (reg val))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op cons) (reg val) (reg argl))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch678))
  compiled-branch677
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch678
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call676
  after-lambda674
  (perform (op define-variable!) (const begin?) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry670) (reg env))
  (goto (label after-lambda669))
  entry670
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (exp)) (reg argl) (reg env))
  (assign proc (op lookup-variable-value) (const cdr) (reg env))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch673))
  compiled-branch672
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch673
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call671
  after-lambda669
  (perform (op define-variable!) (const begin-actions) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry662) (reg env))
  (goto (label after-lambda661))
  entry662
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (seq)) (reg argl) (reg env))
  (assign proc (op lookup-variable-value) (const null?) (reg env))
  (save continue)
  (save proc)
  (assign proc (op lookup-variable-value) (const cdr) (reg env))
  (assign val (op lookup-variable-value) (const seq) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch665))
  compiled-branch664
  (assign continue (label after-call663))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch665
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call663
  (assign argl (op list) (reg val))
  (restore proc)
  (restore continue)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch668))
  compiled-branch667
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch668
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call666
  after-lambda661
  (perform (op define-variable!) (const last-exp?) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry657) (reg env))
  (goto (label after-lambda656))
  entry657
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (seq)) (reg argl) (reg env))
  (assign proc (op lookup-variable-value) (const car) (reg env))
  (assign val (op lookup-variable-value) (const seq) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch660))
  compiled-branch659
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch660
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call658
  after-lambda656
  (perform (op define-variable!) (const first-exp) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry652) (reg env))
  (goto (label after-lambda651))
  entry652
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (seq)) (reg argl) (reg env))
  (assign proc (op lookup-variable-value) (const cdr) (reg env))
  (assign val (op lookup-variable-value) (const seq) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch655))
  compiled-branch654
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch655
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call653
  after-lambda651
  (perform (op define-variable!) (const rest-exps) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry632) (reg env))
  (goto (label after-lambda631))
  entry632
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (seq)) (reg argl) (reg env))
  (save continue)
  (save env)
  (assign proc (op lookup-variable-value) (const null?) (reg env))
  (assign val (op lookup-variable-value) (const seq) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch650))
  compiled-branch649
  (assign continue (label after-call648))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch650
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call648
  (restore env)
  (restore continue)
  (test (op false?) (reg val))
  (branch (label false-branch634))
  true-branch635
  (assign val (op lookup-variable-value) (const seq) (reg env))
  (goto (reg continue))
  false-branch634
  (save continue)
  (save env)
  (assign proc (op lookup-variable-value) (const last-exp?) (reg env))
  (assign val (op lookup-variable-value) (const seq) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch647))
  compiled-branch646
  (assign continue (label after-call645))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch647
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call645
  (restore env)
  (restore continue)
  (test (op false?) (reg val))
  (branch (label false-branch637))
  true-branch638
  (assign proc (op lookup-variable-value) (const first-exp) (reg env))
  (assign val (op lookup-variable-value) (const seq) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch644))
  compiled-branch643
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch644
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call642
  false-branch637
  (assign proc (op lookup-variable-value) (const make-begin) (reg env))
  (assign val (op lookup-variable-value) (const seq) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch641))
  compiled-branch640
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch641
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call639
  after-if636
  after-if633
  after-lambda631
  (perform (op define-variable!) (const sequence->exp) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry627) (reg env))
  (goto (label after-lambda626))
  entry627
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (seq)) (reg argl) (reg env))
  (assign proc (op lookup-variable-value) (const cons) (reg env))
  (assign val (op lookup-variable-value) (const seq) (reg env))
  (assign argl (op list) (reg val))
  (assign val (const begin))
  (assign argl (op cons) (reg val) (reg argl))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch630))
  compiled-branch629
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch630
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call628
  after-lambda626
  (perform (op define-variable!) (const make-begin) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry622) (reg env))
  (goto (label after-lambda621))
  entry622
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (exp)) (reg argl) (reg env))
  (assign proc (op lookup-variable-value) (const pair?) (reg env))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch625))
  compiled-branch624
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch625
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call623
  after-lambda621
  (perform (op define-variable!) (const application?) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry617) (reg env))
  (goto (label after-lambda616))
  entry617
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (exp)) (reg argl) (reg env))
  (assign proc (op lookup-variable-value) (const car) (reg env))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch620))
  compiled-branch619
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch620
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call618
  after-lambda616
  (perform (op define-variable!) (const operator) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry612) (reg env))
  (goto (label after-lambda611))
  entry612
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (exp)) (reg argl) (reg env))
  (assign proc (op lookup-variable-value) (const cdr) (reg env))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch615))
  compiled-branch614
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch615
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call613
  after-lambda611
  (perform (op define-variable!) (const operands) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry607) (reg env))
  (goto (label after-lambda606))
  entry607
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (ops)) (reg argl) (reg env))
  (assign proc (op lookup-variable-value) (const null?) (reg env))
  (assign val (op lookup-variable-value) (const ops) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch610))
  compiled-branch609
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch610
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call608
  after-lambda606
  (perform (op define-variable!) (const no-operands?) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry602) (reg env))
  (goto (label after-lambda601))
  entry602
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (ops)) (reg argl) (reg env))
  (assign proc (op lookup-variable-value) (const car) (reg env))
  (assign val (op lookup-variable-value) (const ops) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch605))
  compiled-branch604
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch605
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call603
  after-lambda601
  (perform (op define-variable!) (const first-operand) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry597) (reg env))
  (goto (label after-lambda596))
  entry597
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (ops)) (reg argl) (reg env))
  (assign proc (op lookup-variable-value) (const cdr) (reg env))
  (assign val (op lookup-variable-value) (const ops) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch600))
  compiled-branch599
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch600
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call598
  after-lambda596
  (perform (op define-variable!) (const rest-operands) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry592) (reg env))
  (goto (label after-lambda591))
  entry592
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (exp)) (reg argl) (reg env))
  (assign proc (op lookup-variable-value) (const tagged-list?) (reg env))
  (assign val (const cond))
  (assign argl (op list) (reg val))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op cons) (reg val) (reg argl))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch595))
  compiled-branch594
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch595
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call593
  after-lambda591
  (perform (op define-variable!) (const cond?) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry587) (reg env))
  (goto (label after-lambda586))
  entry587
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (exp)) (reg argl) (reg env))
  (assign proc (op lookup-variable-value) (const cdr) (reg env))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch590))
  compiled-branch589
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch590
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call588
  after-lambda586
  (perform (op define-variable!) (const cond-clauses) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry579) (reg env))
  (goto (label after-lambda578))
  entry579
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (clause)) (reg argl) (reg env))
  (assign proc (op lookup-variable-value) (const eq?) (reg env))
  (save continue)
  (save proc)
  (assign val (const else))
  (assign argl (op list) (reg val))
  (save argl)
  (assign proc (op lookup-variable-value) (const cond-predicate) (reg env))
  (assign val (op lookup-variable-value) (const clause) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch582))
  compiled-branch581
  (assign continue (label after-call580))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch582
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call580
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (restore continue)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch585))
  compiled-branch584
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch585
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call583
  after-lambda578
  (perform (op define-variable!)
           (const cond-else-clause?)
           (reg val)
           (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry574) (reg env))
  (goto (label after-lambda573))
  entry574
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (clause)) (reg argl) (reg env))
  (assign proc (op lookup-variable-value) (const car) (reg env))
  (assign val (op lookup-variable-value) (const clause) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch577))
  compiled-branch576
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch577
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call575
  after-lambda573
  (perform (op define-variable!) (const cond-predicate) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry569) (reg env))
  (goto (label after-lambda568))
  entry569
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (clause)) (reg argl) (reg env))
  (assign proc (op lookup-variable-value) (const cdr) (reg env))
  (assign val (op lookup-variable-value) (const clause) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch572))
  compiled-branch571
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch572
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call570
  after-lambda568
  (perform (op define-variable!) (const cond-actions) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry561) (reg env))
  (goto (label after-lambda560))
  entry561
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (exp)) (reg argl) (reg env))
  (assign proc (op lookup-variable-value) (const expand-clauses) (reg env))
  (save continue)
  (save proc)
  (assign proc (op lookup-variable-value) (const cond-clauses) (reg env))
  (assign val (op lookup-variable-value) (const exp) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch564))
  compiled-branch563
  (assign continue (label after-call562))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch564
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call562
  (assign argl (op list) (reg val))
  (restore proc)
  (restore continue)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch567))
  compiled-branch566
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch567
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call565
  after-lambda560
  (perform (op define-variable!) (const cond->if) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry498) (reg env))
  (goto (label after-lambda497))
  entry498
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (clauses)) (reg argl) (reg env))
  (save continue)
  (save env)
  (assign proc (op lookup-variable-value) (const null?) (reg env))
  (assign val (op lookup-variable-value) (const clauses) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch559))
  compiled-branch558
  (assign continue (label after-call557))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch559
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call557
  (restore env)
  (restore continue)
  (test (op false?) (reg val))
  (branch (label false-branch500))
  true-branch501
  (assign val (const false))
  (goto (reg continue))
  false-branch500
  (assign proc (op lookup-variable-value) (const let) (reg env))
  (save continue)
  (save proc)
  (save env)
  (save env)
  (assign proc (op lookup-variable-value) (const cond-else-clause?) (reg env))
  (assign val (op lookup-variable-value) (const first) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch553))
  compiled-branch552
  (assign continue (label after-call551))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch553
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call551
  (restore env)
  (test (op false?) (reg val))
  (branch (label false-branch519))
  true-branch520
  (save env)
  (assign proc (op lookup-variable-value) (const null?) (reg env))
  (assign val (op lookup-variable-value) (const rest) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch550))
  compiled-branch549
  (assign continue (label after-call548))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch550
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call548
  (restore env)
  (test (op false?) (reg val))
  (branch (label false-branch537))
  true-branch538
  (assign proc (op lookup-variable-value) (const sequence->exp) (reg env))
  (save proc)
  (assign proc (op lookup-variable-value) (const cond-actions) (reg env))
  (assign val (op lookup-variable-value) (const first) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch544))
  compiled-branch543
  (assign continue (label after-call542))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch544
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call542
  (assign argl (op list) (reg val))
  (restore proc)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch547))
  compiled-branch546
  (assign continue (label after-if518))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch547
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (label after-if518))
  after-call545
  false-branch537
  (assign proc (op lookup-variable-value) (const error) (reg env))
  (assign val (op lookup-variable-value) (const clauses) (reg env))
  (assign argl (op list) (reg val))
  (assign val (const "ELSE clause isn't last -- COND->IF"))
  (assign argl (op cons) (reg val) (reg argl))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch541))
  compiled-branch540
  (assign continue (label after-if518))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch541
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (label after-if518))
  after-call539
  after-if536
  false-branch519
  (assign proc (op lookup-variable-value) (const make-if) (reg env))
  (save proc)
  (save env)
  (assign proc (op lookup-variable-value) (const expand-clauses) (reg env))
  (assign val (op lookup-variable-value) (const rest) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch532))
  compiled-branch531
  (assign continue (label after-call530))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch532
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call530
  (assign argl (op list) (reg val))
  (restore env)
  (save env)
  (save argl)
  (assign proc (op lookup-variable-value) (const sequence->exp) (reg env))
  (save proc)
  (assign proc (op lookup-variable-value) (const cond-actions) (reg env))
  (assign val (op lookup-variable-value) (const first) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch526))
  compiled-branch525
  (assign continue (label after-call524))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch526
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call524
  (assign argl (op list) (reg val))
  (restore proc)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch529))
  compiled-branch528
  (assign continue (label after-call527))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch529
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call527
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore env)
  (save argl)
  (assign proc (op lookup-variable-value) (const cond-predicate) (reg env))
  (assign val (op lookup-variable-value) (const first) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch523))
  compiled-branch522
  (assign continue (label after-call521))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch523
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call521
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch535))
  compiled-branch534
  (assign continue (label after-call533))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch535
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call533
  after-if518
  (assign argl (op list) (reg val))
  (restore env)
  (save argl)
  (save env)
  (assign proc (op lookup-variable-value) (const first) (reg env))
  (save proc)
  (assign proc (op lookup-variable-value) (const car) (reg env))
  (assign val (op lookup-variable-value) (const clauses) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch510))
  compiled-branch509
  (assign continue (label after-call508))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch510
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call508
  (assign argl (op list) (reg val))
  (restore proc)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch513))
  compiled-branch512
  (assign continue (label proc-return514))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  proc-return514
  (assign proc (reg val))
  (goto (label after-call511))
  primitive-branch513
  (assign proc (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call511
  (restore env)
  (save proc)
  (assign proc (op lookup-variable-value) (const rest) (reg env))
  (save proc)
  (assign proc (op lookup-variable-value) (const cdr) (reg env))
  (assign val (op lookup-variable-value) (const clauses) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch504))
  compiled-branch503
  (assign continue (label after-call502))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch504
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call502
  (assign argl (op list) (reg val))
  (restore proc)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch507))
  compiled-branch506
  (assign continue (label after-call505))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch507
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call505
  (assign argl (op list) (reg val))
  (restore proc)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch517))
  compiled-branch516
  (assign continue (label after-call515))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch517
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call515
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (restore continue)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch556))
  compiled-branch555
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch556
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call554
  after-if499
  after-lambda497
  (perform (op define-variable!) (const expand-clauses) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry490) (reg env))
  (goto (label after-lambda489))
  entry490
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (x)) (reg argl) (reg env))
  (assign proc (op lookup-variable-value) (const not) (reg env))
  (save continue)
  (save proc)
  (assign proc (op lookup-variable-value) (const eq?) (reg env))
  (assign val (op lookup-variable-value) (const false) (reg env))
  (assign argl (op list) (reg val))
  (assign val (op lookup-variable-value) (const x) (reg env))
  (assign argl (op cons) (reg val) (reg argl))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch493))
  compiled-branch492
  (assign continue (label after-call491))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch493
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call491
  (assign argl (op list) (reg val))
  (restore proc)
  (restore continue)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch496))
  compiled-branch495
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch496
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call494
  after-lambda489
  (perform (op define-variable!) (const true?) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry485) (reg env))
  (goto (label after-lambda484))
  entry485
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (x)) (reg argl) (reg env))
  (assign proc (op lookup-variable-value) (const eq?) (reg env))
  (assign val (op lookup-variable-value) (const false) (reg env))
  (assign argl (op list) (reg val))
  (assign val (op lookup-variable-value) (const x) (reg env))
  (assign argl (op cons) (reg val) (reg argl))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch488))
  compiled-branch487
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch488
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call486
  after-lambda484
  (perform (op define-variable!) (const false?) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry480) (reg env))
  (goto (label after-lambda479))
  entry480
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env
          (op extend-environment)
          (const (parameters body env))
          (reg argl)
          (reg env))
  (assign proc (op lookup-variable-value) (const list) (reg env))
  (assign val (op lookup-variable-value) (const env) (reg env))
  (assign argl (op list) (reg val))
  (assign val (op lookup-variable-value) (const body) (reg env))
  (assign argl (op cons) (reg val) (reg argl))
  (assign val (op lookup-variable-value) (const parameters) (reg env))
  (assign argl (op cons) (reg val) (reg argl))
  (assign val (const procedure))
  (assign argl (op cons) (reg val) (reg argl))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch483))
  compiled-branch482
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch483
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call481
  after-lambda479
  (perform (op define-variable!) (const make-procedure) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry475) (reg env))
  (goto (label after-lambda474))
  entry475
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (p)) (reg argl) (reg env))
  (assign proc (op lookup-variable-value) (const tagged-list?) (reg env))
  (assign val (const procedure))
  (assign argl (op list) (reg val))
  (assign val (op lookup-variable-value) (const p) (reg env))
  (assign argl (op cons) (reg val) (reg argl))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch478))
  compiled-branch477
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch478
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call476
  after-lambda474
  (perform (op define-variable!)
           (const compound-procedure?)
           (reg val)
           (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry470) (reg env))
  (goto (label after-lambda469))
  entry470
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (p)) (reg argl) (reg env))
  (assign proc (op lookup-variable-value) (const cadr) (reg env))
  (assign val (op lookup-variable-value) (const p) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch473))
  compiled-branch472
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch473
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call471
  after-lambda469
  (perform (op define-variable!)
           (const procedure-parameters)
           (reg val)
           (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry465) (reg env))
  (goto (label after-lambda464))
  entry465
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (p)) (reg argl) (reg env))
  (assign proc (op lookup-variable-value) (const caddr) (reg env))
  (assign val (op lookup-variable-value) (const p) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch468))
  compiled-branch467
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch468
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call466
  after-lambda464
  (perform (op define-variable!) (const procedure-body) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry460) (reg env))
  (goto (label after-lambda459))
  entry460
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (p)) (reg argl) (reg env))
  (assign proc (op lookup-variable-value) (const cadddr) (reg env))
  (assign val (op lookup-variable-value) (const p) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch463))
  compiled-branch462
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch463
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call461
  after-lambda459
  (perform (op define-variable!)
           (const procedure-environment)
           (reg val)
           (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry455) (reg env))
  (goto (label after-lambda454))
  entry455
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (env)) (reg argl) (reg env))
  (assign proc (op lookup-variable-value) (const cdr) (reg env))
  (assign val (op lookup-variable-value) (const env) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch458))
  compiled-branch457
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch458
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call456
  after-lambda454
  (perform (op define-variable!)
           (const enclosing-environment)
           (reg val)
           (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry450) (reg env))
  (goto (label after-lambda449))
  entry450
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (env)) (reg argl) (reg env))
  (assign proc (op lookup-variable-value) (const car) (reg env))
  (assign val (op lookup-variable-value) (const env) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch453))
  compiled-branch452
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch453
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call451
  after-lambda449
  (perform (op define-variable!) (const first-frame) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (const ()))
  (perform (op define-variable!)
           (const the-empty-environment)
           (reg val)
           (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry445) (reg env))
  (goto (label after-lambda444))
  entry445
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env
          (op extend-environment)
          (const (variables values))
          (reg argl)
          (reg env))
  (assign proc (op lookup-variable-value) (const cons) (reg env))
  (assign val (op lookup-variable-value) (const values) (reg env))
  (assign argl (op list) (reg val))
  (assign val (op lookup-variable-value) (const variables) (reg env))
  (assign argl (op cons) (reg val) (reg argl))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch448))
  compiled-branch447
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch448
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call446
  after-lambda444
  (perform (op define-variable!) (const make-frame) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry440) (reg env))
  (goto (label after-lambda439))
  entry440
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (frame)) (reg argl) (reg env))
  (assign proc (op lookup-variable-value) (const car) (reg env))
  (assign val (op lookup-variable-value) (const frame) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch443))
  compiled-branch442
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch443
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call441
  after-lambda439
  (perform (op define-variable!) (const frame-variables) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry435) (reg env))
  (goto (label after-lambda434))
  entry435
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (frame)) (reg argl) (reg env))
  (assign proc (op lookup-variable-value) (const cdr) (reg env))
  (assign val (op lookup-variable-value) (const frame) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch438))
  compiled-branch437
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch438
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call436
  after-lambda434
  (perform (op define-variable!) (const frame-values) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry415) (reg env))
  (goto (label after-lambda414))
  entry415
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env
          (op extend-environment)
          (const (var val frame))
          (reg argl)
          (reg env))
  (save continue)
  (save env)
  (assign proc (op lookup-variable-value) (const set-car!) (reg env))
  (save proc)
  (save env)
  (assign proc (op lookup-variable-value) (const cons) (reg env))
  (save proc)
  (save env)
  (assign proc (op lookup-variable-value) (const car) (reg env))
  (assign val (op lookup-variable-value) (const frame) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch427))
  compiled-branch426
  (assign continue (label after-call425))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch427
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call425
  (assign argl (op list) (reg val))
  (restore env)
  (assign val (op lookup-variable-value) (const var) (reg env))
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch430))
  compiled-branch429
  (assign continue (label after-call428))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch430
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call428
  (assign argl (op list) (reg val))
  (restore env)
  (assign val (op lookup-variable-value) (const frame) (reg env))
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch433))
  compiled-branch432
  (assign continue (label after-call431))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch433
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call431
  (restore env)
  (restore continue)
  (assign proc (op lookup-variable-value) (const set-cdr!) (reg env))
  (save continue)
  (save proc)
  (save env)
  (assign proc (op lookup-variable-value) (const cons) (reg env))
  (save proc)
  (save env)
  (assign proc (op lookup-variable-value) (const cdr) (reg env))
  (assign val (op lookup-variable-value) (const frame) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch418))
  compiled-branch417
  (assign continue (label after-call416))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch418
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call416
  (assign argl (op list) (reg val))
  (restore env)
  (assign val (op lookup-variable-value) (const val) (reg env))
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch421))
  compiled-branch420
  (assign continue (label after-call419))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch421
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call419
  (assign argl (op list) (reg val))
  (restore env)
  (assign val (op lookup-variable-value) (const frame) (reg env))
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (restore continue)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch424))
  compiled-branch423
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch424
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call422
  after-lambda414
  (perform (op define-variable!)
           (const add-binding-to-frame!)
           (reg val)
           (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry377) (reg env))
  (goto (label after-lambda376))
  entry377
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env
          (op extend-environment)
          (const (vars vals base-env))
          (reg argl)
          (reg env))
  (save continue)
  (save env)
  (assign proc (op lookup-variable-value) (const =) (reg env))
  (save proc)
  (save env)
  (assign proc (op lookup-variable-value) (const length) (reg env))
  (assign val (op lookup-variable-value) (const vals) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch410))
  compiled-branch409
  (assign continue (label after-call408))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch410
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call408
  (assign argl (op list) (reg val))
  (restore env)
  (save argl)
  (assign proc (op lookup-variable-value) (const length) (reg env))
  (assign val (op lookup-variable-value) (const vars) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch407))
  compiled-branch406
  (assign continue (label after-call405))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch407
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call405
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch413))
  compiled-branch412
  (assign continue (label after-call411))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch413
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call411
  (restore env)
  (restore continue)
  (test (op false?) (reg val))
  (branch (label false-branch379))
  true-branch380
  (assign proc (op lookup-variable-value) (const cons) (reg env))
  (save continue)
  (save proc)
  (assign val (op lookup-variable-value) (const base-env) (reg env))
  (assign argl (op list) (reg val))
  (save argl)
  (assign proc (op lookup-variable-value) (const make-frame) (reg env))
  (assign val (op lookup-variable-value) (const vals) (reg env))
  (assign argl (op list) (reg val))
  (assign val (op lookup-variable-value) (const vars) (reg env))
  (assign argl (op cons) (reg val) (reg argl))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch401))
  compiled-branch400
  (assign continue (label after-call399))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch401
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call399
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (restore continue)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch404))
  compiled-branch403
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch404
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call402
  false-branch379
  (save continue)
  (save env)
  (assign proc (op lookup-variable-value) (const <) (reg env))
  (save proc)
  (save env)
  (assign proc (op lookup-variable-value) (const length) (reg env))
  (assign val (op lookup-variable-value) (const vals) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch395))
  compiled-branch394
  (assign continue (label after-call393))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch395
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call393
  (assign argl (op list) (reg val))
  (restore env)
  (save argl)
  (assign proc (op lookup-variable-value) (const length) (reg env))
  (assign val (op lookup-variable-value) (const vars) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch392))
  compiled-branch391
  (assign continue (label after-call390))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch392
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call390
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch398))
  compiled-branch397
  (assign continue (label after-call396))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch398
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call396
  (restore env)
  (restore continue)
  (test (op false?) (reg val))
  (branch (label false-branch382))
  true-branch383
  (assign proc (op lookup-variable-value) (const error) (reg env))
  (assign val (op lookup-variable-value) (const vals) (reg env))
  (assign argl (op list) (reg val))
  (assign val (op lookup-variable-value) (const vars) (reg env))
  (assign argl (op cons) (reg val) (reg argl))
  (assign val (const "Too many arguments supplied"))
  (assign argl (op cons) (reg val) (reg argl))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch389))
  compiled-branch388
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch389
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call387
  false-branch382
  (assign proc (op lookup-variable-value) (const error) (reg env))
  (assign val (op lookup-variable-value) (const vals) (reg env))
  (assign argl (op list) (reg val))
  (assign val (op lookup-variable-value) (const vars) (reg env))
  (assign argl (op cons) (reg val) (reg argl))
  (assign val (const "Too few arguments supplied"))
  (assign argl (op cons) (reg val) (reg argl))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch386))
  compiled-branch385
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch386
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call384
  after-if381
  after-if378
  after-lambda376
  (perform (op define-variable!)
           (const extend-environment)
           (reg val)
           (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry304) (reg env))
  (goto (label after-lambda303))
  entry304
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (var env)) (reg argl) (reg env))
  (assign val (op make-compiled-procedure) (label entry309) (reg env))
  (goto (label after-lambda308))
  entry309
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (env)) (reg argl) (reg env))
  (assign val (op make-compiled-procedure) (label entry342) (reg env))
  (goto (label after-lambda341))
  entry342
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env
          (op extend-environment)
          (const (vars vals))
          (reg argl)
          (reg env))
  (save continue)
  (save env)
  (assign proc (op lookup-variable-value) (const null?) (reg env))
  (assign val (op lookup-variable-value) (const vars) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch375))
  compiled-branch374
  (assign continue (label after-call373))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch375
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call373
  (restore env)
  (restore continue)
  (test (op false?) (reg val))
  (branch (label false-branch344))
  true-branch345
  (assign proc (op lookup-variable-value) (const env-loop) (reg env))
  (save continue)
  (save proc)
  (assign proc
          (op lookup-variable-value)
          (const enclosing-environment)
          (reg env))
  (assign val (op lookup-variable-value) (const env) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch369))
  compiled-branch368
  (assign continue (label after-call367))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch369
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call367
  (assign argl (op list) (reg val))
  (restore proc)
  (restore continue)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch372))
  compiled-branch371
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch372
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call370
  false-branch344
  (save continue)
  (save env)
  (assign proc (op lookup-variable-value) (const eq?) (reg env))
  (save proc)
  (save env)
  (assign proc (op lookup-variable-value) (const car) (reg env))
  (assign val (op lookup-variable-value) (const vars) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch363))
  compiled-branch362
  (assign continue (label after-call361))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch363
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call361
  (assign argl (op list) (reg val))
  (restore env)
  (assign val (op lookup-variable-value) (const var) (reg env))
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch366))
  compiled-branch365
  (assign continue (label after-call364))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch366
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call364
  (restore env)
  (restore continue)
  (test (op false?) (reg val))
  (branch (label false-branch347))
  true-branch348
  (assign proc (op lookup-variable-value) (const car) (reg env))
  (assign val (op lookup-variable-value) (const vals) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch360))
  compiled-branch359
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch360
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call358
  false-branch347
  (assign proc (op lookup-variable-value) (const scan) (reg env))
  (save continue)
  (save proc)
  (save env)
  (assign proc (op lookup-variable-value) (const cdr) (reg env))
  (assign val (op lookup-variable-value) (const vals) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch354))
  compiled-branch353
  (assign continue (label after-call352))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch354
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call352
  (assign argl (op list) (reg val))
  (restore env)
  (save argl)
  (assign proc (op lookup-variable-value) (const cdr) (reg env))
  (assign val (op lookup-variable-value) (const vars) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch351))
  compiled-branch350
  (assign continue (label after-call349))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch351
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call349
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (restore continue)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch357))
  compiled-branch356
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch357
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call355
  after-if346
  after-if343
  after-lambda341
  (perform (op define-variable!) (const scan) (reg val) (reg env))
  (assign val (const ok))
  (save continue)
  (save env)
  (assign proc (op lookup-variable-value) (const eq?) (reg env))
  (assign val
          (op lookup-variable-value)
          (const the-empty-environment)
          (reg env))
  (assign argl (op list) (reg val))
  (assign val (op lookup-variable-value) (const env) (reg env))
  (assign argl (op cons) (reg val) (reg argl))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch340))
  compiled-branch339
  (assign continue (label after-call338))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch340
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call338
  (restore env)
  (restore continue)
  (test (op false?) (reg val))
  (branch (label false-branch311))
  true-branch312
  (assign proc (op lookup-variable-value) (const error) (reg env))
  (assign val (op lookup-variable-value) (const var) (reg env))
  (assign argl (op list) (reg val))
  (assign val (const "Unbound variable"))
  (assign argl (op cons) (reg val) (reg argl))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch337))
  compiled-branch336
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch337
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call335
  false-branch311
  (assign proc (op lookup-variable-value) (const let) (reg env))
  (save continue)
  (save proc)
  (save env)
  (assign proc (op lookup-variable-value) (const scan) (reg env))
  (save proc)
  (save env)
  (assign proc (op lookup-variable-value) (const frame-values) (reg env))
  (assign val (op lookup-variable-value) (const frame) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch328))
  compiled-branch327
  (assign continue (label after-call326))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch328
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call326
  (assign argl (op list) (reg val))
  (restore env)
  (save argl)
  (assign proc (op lookup-variable-value) (const frame-variables) (reg env))
  (assign val (op lookup-variable-value) (const frame) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch325))
  compiled-branch324
  (assign continue (label after-call323))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch325
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call323
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch331))
  compiled-branch330
  (assign continue (label after-call329))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch331
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call329
  (assign argl (op list) (reg val))
  (restore env)
  (save argl)
  (assign proc (op lookup-variable-value) (const frame) (reg env))
  (save proc)
  (assign proc (op lookup-variable-value) (const first-frame) (reg env))
  (assign val (op lookup-variable-value) (const env) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch315))
  compiled-branch314
  (assign continue (label after-call313))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch315
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call313
  (assign argl (op list) (reg val))
  (restore proc)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch318))
  compiled-branch317
  (assign continue (label proc-return319))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  proc-return319
  (assign proc (reg val))
  (goto (label after-call316))
  primitive-branch318
  (assign proc (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call316
  (assign argl (const ()))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch322))
  compiled-branch321
  (assign continue (label after-call320))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch322
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call320
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (restore continue)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch334))
  compiled-branch333
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch334
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call332
  after-if310
  after-lambda308
  (perform (op define-variable!) (const env-loop) (reg val) (reg env))
  (assign val (const ok))
  (assign proc (op lookup-variable-value) (const env-loop) (reg env))
  (assign val (op lookup-variable-value) (const env) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch307))
  compiled-branch306
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch307
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call305
  after-lambda303
  (perform (op define-variable!)
           (const lookup-variable-value)
           (reg val)
           (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry231) (reg env))
  (goto (label after-lambda230))
  entry231
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env
          (op extend-environment)
          (const (var val env))
          (reg argl)
          (reg env))
  (assign val (op make-compiled-procedure) (label entry236) (reg env))
  (goto (label after-lambda235))
  entry236
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (env)) (reg argl) (reg env))
  (assign val (op make-compiled-procedure) (label entry269) (reg env))
  (goto (label after-lambda268))
  entry269
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env
          (op extend-environment)
          (const (vars vals))
          (reg argl)
          (reg env))
  (save continue)
  (save env)
  (assign proc (op lookup-variable-value) (const null?) (reg env))
  (assign val (op lookup-variable-value) (const vars) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch302))
  compiled-branch301
  (assign continue (label after-call300))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch302
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call300
  (restore env)
  (restore continue)
  (test (op false?) (reg val))
  (branch (label false-branch271))
  true-branch272
  (assign proc (op lookup-variable-value) (const env-loop) (reg env))
  (save continue)
  (save proc)
  (assign proc
          (op lookup-variable-value)
          (const enclosing-environment)
          (reg env))
  (assign val (op lookup-variable-value) (const env) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch296))
  compiled-branch295
  (assign continue (label after-call294))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch296
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call294
  (assign argl (op list) (reg val))
  (restore proc)
  (restore continue)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch299))
  compiled-branch298
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch299
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call297
  false-branch271
  (save continue)
  (save env)
  (assign proc (op lookup-variable-value) (const eq?) (reg env))
  (save proc)
  (save env)
  (assign proc (op lookup-variable-value) (const car) (reg env))
  (assign val (op lookup-variable-value) (const vars) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch290))
  compiled-branch289
  (assign continue (label after-call288))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch290
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call288
  (assign argl (op list) (reg val))
  (restore env)
  (assign val (op lookup-variable-value) (const var) (reg env))
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch293))
  compiled-branch292
  (assign continue (label after-call291))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch293
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call291
  (restore env)
  (restore continue)
  (test (op false?) (reg val))
  (branch (label false-branch274))
  true-branch275
  (assign proc (op lookup-variable-value) (const set-car!) (reg env))
  (assign val (op lookup-variable-value) (const val) (reg env))
  (assign argl (op list) (reg val))
  (assign val (op lookup-variable-value) (const vals) (reg env))
  (assign argl (op cons) (reg val) (reg argl))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch287))
  compiled-branch286
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch287
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call285
  false-branch274
  (assign proc (op lookup-variable-value) (const scan) (reg env))
  (save continue)
  (save proc)
  (save env)
  (assign proc (op lookup-variable-value) (const cdr) (reg env))
  (assign val (op lookup-variable-value) (const vals) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch281))
  compiled-branch280
  (assign continue (label after-call279))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch281
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call279
  (assign argl (op list) (reg val))
  (restore env)
  (save argl)
  (assign proc (op lookup-variable-value) (const cdr) (reg env))
  (assign val (op lookup-variable-value) (const vars) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch278))
  compiled-branch277
  (assign continue (label after-call276))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch278
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call276
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (restore continue)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch284))
  compiled-branch283
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch284
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call282
  after-if273
  after-if270
  after-lambda268
  (perform (op define-variable!) (const scan) (reg val) (reg env))
  (assign val (const ok))
  (save continue)
  (save env)
  (assign proc (op lookup-variable-value) (const eq?) (reg env))
  (assign val
          (op lookup-variable-value)
          (const the-empty-environment)
          (reg env))
  (assign argl (op list) (reg val))
  (assign val (op lookup-variable-value) (const env) (reg env))
  (assign argl (op cons) (reg val) (reg argl))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch267))
  compiled-branch266
  (assign continue (label after-call265))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch267
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call265
  (restore env)
  (restore continue)
  (test (op false?) (reg val))
  (branch (label false-branch238))
  true-branch239
  (assign proc (op lookup-variable-value) (const error) (reg env))
  (assign val (op lookup-variable-value) (const var) (reg env))
  (assign argl (op list) (reg val))
  (assign val (const "Unbound variable -- SET!"))
  (assign argl (op cons) (reg val) (reg argl))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch264))
  compiled-branch263
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch264
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call262
  false-branch238
  (assign proc (op lookup-variable-value) (const let) (reg env))
  (save continue)
  (save proc)
  (save env)
  (assign proc (op lookup-variable-value) (const scan) (reg env))
  (save proc)
  (save env)
  (assign proc (op lookup-variable-value) (const frame-values) (reg env))
  (assign val (op lookup-variable-value) (const frame) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch255))
  compiled-branch254
  (assign continue (label after-call253))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch255
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call253
  (assign argl (op list) (reg val))
  (restore env)
  (save argl)
  (assign proc (op lookup-variable-value) (const frame-variables) (reg env))
  (assign val (op lookup-variable-value) (const frame) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch252))
  compiled-branch251
  (assign continue (label after-call250))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch252
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call250
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch258))
  compiled-branch257
  (assign continue (label after-call256))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch258
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call256
  (assign argl (op list) (reg val))
  (restore env)
  (save argl)
  (assign proc (op lookup-variable-value) (const frame) (reg env))
  (save proc)
  (assign proc (op lookup-variable-value) (const first-frame) (reg env))
  (assign val (op lookup-variable-value) (const env) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch242))
  compiled-branch241
  (assign continue (label after-call240))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch242
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call240
  (assign argl (op list) (reg val))
  (restore proc)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch245))
  compiled-branch244
  (assign continue (label proc-return246))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  proc-return246
  (assign proc (reg val))
  (goto (label after-call243))
  primitive-branch245
  (assign proc (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call243
  (assign argl (const ()))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch249))
  compiled-branch248
  (assign continue (label after-call247))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch249
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call247
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (restore continue)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch261))
  compiled-branch260
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch261
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call259
  after-if237
  after-lambda235
  (perform (op define-variable!) (const env-loop) (reg val) (reg env))
  (assign val (const ok))
  (assign proc (op lookup-variable-value) (const env-loop) (reg env))
  (assign val (op lookup-variable-value) (const env) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch234))
  compiled-branch233
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch234
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call232
  after-lambda230
  (perform (op define-variable!)
           (const set-variable-value!)
           (reg val)
           (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry175) (reg env))
  (goto (label after-lambda174))
  entry175
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env
          (op extend-environment)
          (const (var val env))
          (reg argl)
          (reg env))
  (assign proc (op lookup-variable-value) (const let) (reg env))
  (save continue)
  (save proc)
  (save env)
  (assign proc (op lookup-variable-value) (const scan) (reg env))
  (save proc)
  (save env)
  (assign proc (op lookup-variable-value) (const frame-values) (reg env))
  (assign val (op lookup-variable-value) (const frame) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch223))
  compiled-branch222
  (assign continue (label after-call221))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch223
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call221
  (assign argl (op list) (reg val))
  (restore env)
  (save argl)
  (assign proc (op lookup-variable-value) (const frame-variables) (reg env))
  (assign val (op lookup-variable-value) (const frame) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch220))
  compiled-branch219
  (assign continue (label after-call218))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch220
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call218
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch226))
  compiled-branch225
  (assign continue (label after-call224))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch226
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call224
  (assign argl (op list) (reg val))
  (restore env)
  (assign val (op make-compiled-procedure) (label entry187) (reg env))
  (goto (label after-lambda186))
  entry187
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env
          (op extend-environment)
          (const (vars vals))
          (reg argl)
          (reg env))
  (save continue)
  (save env)
  (assign proc (op lookup-variable-value) (const null?) (reg env))
  (assign val (op lookup-variable-value) (const vars) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch217))
  compiled-branch216
  (assign continue (label after-call215))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch217
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call215
  (restore env)
  (restore continue)
  (test (op false?) (reg val))
  (branch (label false-branch189))
  true-branch190
  (assign proc
          (op lookup-variable-value)
          (const add-binding-to-frame!)
          (reg env))
  (assign val (op lookup-variable-value) (const frame) (reg env))
  (assign argl (op list) (reg val))
  (assign val (op lookup-variable-value) (const val) (reg env))
  (assign argl (op cons) (reg val) (reg argl))
  (assign val (op lookup-variable-value) (const var) (reg env))
  (assign argl (op cons) (reg val) (reg argl))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch214))
  compiled-branch213
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch214
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call212
  false-branch189
  (save continue)
  (save env)
  (assign proc (op lookup-variable-value) (const eq?) (reg env))
  (save proc)
  (save env)
  (assign proc (op lookup-variable-value) (const car) (reg env))
  (assign val (op lookup-variable-value) (const vars) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch208))
  compiled-branch207
  (assign continue (label after-call206))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch208
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call206
  (assign argl (op list) (reg val))
  (restore env)
  (assign val (op lookup-variable-value) (const var) (reg env))
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch211))
  compiled-branch210
  (assign continue (label after-call209))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch211
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call209
  (restore env)
  (restore continue)
  (test (op false?) (reg val))
  (branch (label false-branch192))
  true-branch193
  (assign proc (op lookup-variable-value) (const set-car!) (reg env))
  (assign val (op lookup-variable-value) (const val) (reg env))
  (assign argl (op list) (reg val))
  (assign val (op lookup-variable-value) (const vals) (reg env))
  (assign argl (op cons) (reg val) (reg argl))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch205))
  compiled-branch204
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch205
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call203
  false-branch192
  (assign proc (op lookup-variable-value) (const scan) (reg env))
  (save continue)
  (save proc)
  (save env)
  (assign proc (op lookup-variable-value) (const cdr) (reg env))
  (assign val (op lookup-variable-value) (const vals) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch199))
  compiled-branch198
  (assign continue (label after-call197))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch199
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call197
  (assign argl (op list) (reg val))
  (restore env)
  (save argl)
  (assign proc (op lookup-variable-value) (const cdr) (reg env))
  (assign val (op lookup-variable-value) (const vars) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch196))
  compiled-branch195
  (assign continue (label after-call194))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch196
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call194
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (restore continue)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch202))
  compiled-branch201
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch202
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call200
  after-if191
  after-if188
  after-lambda186
  (perform (op define-variable!) (const scan) (reg val) (reg env))
  (assign val (const ok))
  (assign argl (op cons) (reg val) (reg argl))
  (save argl)
  (assign proc (op lookup-variable-value) (const frame) (reg env))
  (save proc)
  (assign proc (op lookup-variable-value) (const first-frame) (reg env))
  (assign val (op lookup-variable-value) (const env) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch178))
  compiled-branch177
  (assign continue (label after-call176))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch178
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call176
  (assign argl (op list) (reg val))
  (restore proc)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch181))
  compiled-branch180
  (assign continue (label proc-return182))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  proc-return182
  (assign proc (reg val))
  (goto (label after-call179))
  primitive-branch181
  (assign proc (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call179
  (assign argl (const ()))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch185))
  compiled-branch184
  (assign continue (label after-call183))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch185
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call183
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (restore continue)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch229))
  compiled-branch228
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch229
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call227
  after-lambda174
  (perform (op define-variable!) (const define-variable!) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry148) (reg env))
  (goto (label after-lambda147))
  entry148
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const ()) (reg argl) (reg env))
  (assign proc (op lookup-variable-value) (const let) (reg env))
  (save continue)
  (save proc)
  (assign val (op lookup-variable-value) (const initial-env) (reg env))
  (assign argl (op list) (reg val))
  (save env)
  (save argl)
  (assign proc (op lookup-variable-value) (const define-variable!) (reg env))
  (assign val (op lookup-variable-value) (const initial-env) (reg env))
  (assign argl (op list) (reg val))
  (assign val (op lookup-variable-value) (const false) (reg env))
  (assign argl (op cons) (reg val) (reg argl))
  (assign val (const false))
  (assign argl (op cons) (reg val) (reg argl))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch170))
  compiled-branch169
  (assign continue (label after-call168))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch170
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call168
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore env)
  (save env)
  (save argl)
  (assign proc (op lookup-variable-value) (const define-variable!) (reg env))
  (assign val (op lookup-variable-value) (const initial-env) (reg env))
  (assign argl (op list) (reg val))
  (assign val (op lookup-variable-value) (const true) (reg env))
  (assign argl (op cons) (reg val) (reg argl))
  (assign val (const true))
  (assign argl (op cons) (reg val) (reg argl))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch167))
  compiled-branch166
  (assign continue (label after-call165))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch167
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call165
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore env)
  (save argl)
  (assign proc (op lookup-variable-value) (const initial-env) (reg env))
  (save proc)
  (assign proc
          (op lookup-variable-value)
          (const extend-environment)
          (reg env))
  (save proc)
  (assign val
          (op lookup-variable-value)
          (const the-empty-environment)
          (reg env))
  (assign argl (op list) (reg val))
  (save env)
  (save argl)
  (assign proc
          (op lookup-variable-value)
          (const primitive-procedure-objects)
          (reg env))
  (assign argl (const ()))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch154))
  compiled-branch153
  (assign continue (label after-call152))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch154
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call152
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore env)
  (save argl)
  (assign proc
          (op lookup-variable-value)
          (const primitive-procedure-names)
          (reg env))
  (assign argl (const ()))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch151))
  compiled-branch150
  (assign continue (label after-call149))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch151
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call149
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch157))
  compiled-branch156
  (assign continue (label after-call155))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch157
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call155
  (assign argl (op list) (reg val))
  (restore proc)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch160))
  compiled-branch159
  (assign continue (label proc-return161))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  proc-return161
  (assign proc (reg val))
  (goto (label after-call158))
  primitive-branch160
  (assign proc (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call158
  (assign argl (const ()))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch164))
  compiled-branch163
  (assign continue (label after-call162))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch164
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call162
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (restore continue)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch173))
  compiled-branch172
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch173
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call171
  after-lambda147
  (perform (op define-variable!)
           (const setup-environment)
           (reg val)
           (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry143) (reg env))
  (goto (label after-lambda142))
  entry143
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (proc)) (reg argl) (reg env))
  (assign proc (op lookup-variable-value) (const tagged-list?) (reg env))
  (assign val (const primitive))
  (assign argl (op list) (reg val))
  (assign val (op lookup-variable-value) (const proc) (reg env))
  (assign argl (op cons) (reg val) (reg argl))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch146))
  compiled-branch145
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch146
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call144
  after-lambda142
  (perform (op define-variable!)
           (const primitive-procedure?)
           (reg val)
           (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry138) (reg env))
  (goto (label after-lambda137))
  entry138
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (proc)) (reg argl) (reg env))
  (assign proc (op lookup-variable-value) (const cadr) (reg env))
  (assign val (op lookup-variable-value) (const proc) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch141))
  compiled-branch140
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch141
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call139
  after-lambda137
  (perform (op define-variable!)
           (const primitive-implementation)
           (reg val)
           (reg env))
  (assign proc (const ok))
  (save env)
  (assign proc (op lookup-variable-value) (const list) (reg env))
  (save proc)
  (save env)
  (assign proc (op lookup-variable-value) (const list) (reg env))
  (assign val (op lookup-variable-value) (const null?) (reg env))
  (assign argl (op list) (reg val))
  (assign val (const null?))
  (assign argl (op cons) (reg val) (reg argl))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch133))
  compiled-branch132
  (assign continue (label after-call131))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch133
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call131
  (assign argl (op list) (reg val))
  (restore env)
  (save env)
  (save argl)
  (assign proc (op lookup-variable-value) (const list) (reg env))
  (assign val (op lookup-variable-value) (const cons) (reg env))
  (assign argl (op list) (reg val))
  (assign val (const cons))
  (assign argl (op cons) (reg val) (reg argl))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch130))
  compiled-branch129
  (assign continue (label after-call128))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch130
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call128
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore env)
  (save env)
  (save argl)
  (assign proc (op lookup-variable-value) (const list) (reg env))
  (assign val (op lookup-variable-value) (const cdr) (reg env))
  (assign argl (op list) (reg val))
  (assign val (const cdr))
  (assign argl (op cons) (reg val) (reg argl))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch127))
  compiled-branch126
  (assign continue (label after-call125))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch127
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call125
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore env)
  (save argl)
  (assign proc (op lookup-variable-value) (const list) (reg env))
  (assign val (op lookup-variable-value) (const car) (reg env))
  (assign argl (op list) (reg val))
  (assign val (const car))
  (assign argl (op cons) (reg val) (reg argl))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch124))
  compiled-branch123
  (assign continue (label after-call122))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch124
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call122
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch136))
  compiled-branch135
  (assign continue (label after-call134))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch136
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call134
  (restore env)
  (perform (op define-variable!)
           (const primitive-procedures)
           (reg val)
           (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry118) (reg env))
  (goto (label after-lambda117))
  entry118
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const ()) (reg argl) (reg env))
  (assign proc (op lookup-variable-value) (const map) (reg env))
  (assign val
          (op lookup-variable-value)
          (const primitive-procedures)
          (reg env))
  (assign argl (op list) (reg val))
  (assign val (op lookup-variable-value) (const car) (reg env))
  (assign argl (op cons) (reg val) (reg argl))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch121))
  compiled-branch120
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch121
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call119
  after-lambda117
  (perform (op define-variable!)
           (const primitive-procedure-names)
           (reg val)
           (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry105) (reg env))
  (goto (label after-lambda104))
  entry105
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const ()) (reg argl) (reg env))
  (assign proc (op lookup-variable-value) (const map) (reg env))
  (assign val
          (op lookup-variable-value)
          (const primitive-procedures)
          (reg env))
  (assign argl (op list) (reg val))
  (assign val (op make-compiled-procedure) (label entry107) (reg env))
  (goto (label after-lambda106))
  entry107
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (proc)) (reg argl) (reg env))
  (assign proc (op lookup-variable-value) (const list) (reg env))
  (save continue)
  (save proc)
  (assign proc (op lookup-variable-value) (const cadr) (reg env))
  (assign val (op lookup-variable-value) (const proc) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch110))
  compiled-branch109
  (assign continue (label after-call108))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch110
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call108
  (assign argl (op list) (reg val))
  (assign val (const primitive))
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (restore continue)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch113))
  compiled-branch112
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch113
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call111
  after-lambda106
  (assign argl (op cons) (reg val) (reg argl))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch116))
  compiled-branch115
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch116
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call114
  after-lambda104
  (perform (op define-variable!)
           (const primitive-procedure-objects)
           (reg val)
           (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry97) (reg env))
  (goto (label after-lambda96))
  entry97
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env
          (op extend-environment)
          (const (proc args))
          (reg argl)
          (reg env))
  (assign proc
          (op lookup-variable-value)
          (const apply-in-underlying-scheme)
          (reg env))
  (save continue)
  (save proc)
  (assign val (op lookup-variable-value) (const args) (reg env))
  (assign argl (op list) (reg val))
  (save argl)
  (assign proc
          (op lookup-variable-value)
          (const primitive-implementation)
          (reg env))
  (assign val (op lookup-variable-value) (const proc) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch100))
  compiled-branch99
  (assign continue (label after-call98))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch100
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call98
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (restore continue)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch103))
  compiled-branch102
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch103
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call101
  after-lambda96
  (perform (op define-variable!)
           (const apply-primitive-procedure)
           (reg val)
           (reg env))
  (assign proc (const ok))
  (assign val (const ";;; M-Eval input:"))
  (perform (op define-variable!) (const input-prompt) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (const ";;; M-Eval value:"))
  (perform (op define-variable!) (const output-prompt) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry57) (reg env))
  (goto (label after-lambda56))
  entry57
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const ()) (reg argl) (reg env))
  (save continue)
  (save env)
  (assign proc (op lookup-variable-value) (const prompt-for-input) (reg env))
  (assign val (op lookup-variable-value) (const input-prompt) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch95))
  compiled-branch94
  (assign continue (label after-call93))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch95
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call93
  (restore env)
  (restore continue)
  (save continue)
  (save env)
  (assign proc (op lookup-variable-value) (const let) (reg env))
  (save proc)
  (save env)
  (assign proc (op lookup-variable-value) (const let) (reg env))
  (save proc)
  (save env)
  (assign proc (op lookup-variable-value) (const user-print) (reg env))
  (assign val (op lookup-variable-value) (const output) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch86))
  compiled-branch85
  (assign continue (label after-call84))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch86
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call84
  (assign argl (op list) (reg val))
  (restore env)
  (save env)
  (save argl)
  (assign proc (op lookup-variable-value) (const announce-output) (reg env))
  (assign val (op lookup-variable-value) (const output-prompt) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch83))
  compiled-branch82
  (assign continue (label after-call81))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch83
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call81
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore env)
  (save argl)
  (assign proc (op lookup-variable-value) (const output) (reg env))
  (save proc)
  (assign proc (op lookup-variable-value) (const eval) (reg env))
  (assign val
          (op lookup-variable-value)
          (const the-global-environment)
          (reg env))
  (assign argl (op list) (reg val))
  (assign val (op lookup-variable-value) (const input) (reg env))
  (assign argl (op cons) (reg val) (reg argl))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch73))
  compiled-branch72
  (assign continue (label after-call71))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch73
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call71
  (assign argl (op list) (reg val))
  (restore proc)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch76))
  compiled-branch75
  (assign continue (label proc-return77))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  proc-return77
  (assign proc (reg val))
  (goto (label after-call74))
  primitive-branch76
  (assign proc (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call74
  (assign argl (const ()))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch80))
  compiled-branch79
  (assign continue (label after-call78))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch80
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call78
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch89))
  compiled-branch88
  (assign continue (label after-call87))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch89
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call87
  (assign argl (op list) (reg val))
  (restore env)
  (save argl)
  (assign proc (op lookup-variable-value) (const input) (reg env))
  (save proc)
  (assign proc (op lookup-variable-value) (const read) (reg env))
  (assign argl (const ()))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch63))
  compiled-branch62
  (assign continue (label after-call61))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch63
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call61
  (assign argl (op list) (reg val))
  (restore proc)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch66))
  compiled-branch65
  (assign continue (label proc-return67))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  proc-return67
  (assign proc (reg val))
  (goto (label after-call64))
  primitive-branch66
  (assign proc (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call64
  (assign argl (const ()))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch70))
  compiled-branch69
  (assign continue (label after-call68))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch70
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call68
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch92))
  compiled-branch91
  (assign continue (label after-call90))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch92
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call90
  (restore env)
  (restore continue)
  (assign proc (op lookup-variable-value) (const driver-loop) (reg env))
  (assign argl (const ()))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch60))
  compiled-branch59
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch60
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call58
  after-lambda56
  (perform (op define-variable!) (const driver-loop) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry43) (reg env))
  (goto (label after-lambda42))
  entry43
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (string)) (reg argl) (reg env))
  (save continue)
  (save env)
  (assign proc (op lookup-variable-value) (const newline) (reg env))
  (assign argl (const ()))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch55))
  compiled-branch54
  (assign continue (label after-call53))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch55
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call53
  (restore env)
  (restore continue)
  (save continue)
  (save env)
  (assign proc (op lookup-variable-value) (const newline) (reg env))
  (assign argl (const ()))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch52))
  compiled-branch51
  (assign continue (label after-call50))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch52
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call50
  (restore env)
  (restore continue)
  (save continue)
  (save env)
  (assign proc (op lookup-variable-value) (const display) (reg env))
  (assign val (op lookup-variable-value) (const string) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch49))
  compiled-branch48
  (assign continue (label after-call47))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch49
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call47
  (restore env)
  (restore continue)
  (assign proc (op lookup-variable-value) (const newline) (reg env))
  (assign argl (const ()))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch46))
  compiled-branch45
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch46
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call44
  after-lambda42
  (perform (op define-variable!) (const prompt-for-input) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry32) (reg env))
  (goto (label after-lambda31))
  entry32
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (string)) (reg argl) (reg env))
  (save continue)
  (save env)
  (assign proc (op lookup-variable-value) (const newline) (reg env))
  (assign argl (const ()))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch41))
  compiled-branch40
  (assign continue (label after-call39))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch41
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call39
  (restore env)
  (restore continue)
  (save continue)
  (save env)
  (assign proc (op lookup-variable-value) (const display) (reg env))
  (assign val (op lookup-variable-value) (const string) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch38))
  compiled-branch37
  (assign continue (label after-call36))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch38
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call36
  (restore env)
  (restore continue)
  (assign proc (op lookup-variable-value) (const newline) (reg env))
  (assign argl (const ()))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch35))
  compiled-branch34
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch35
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call33
  after-lambda31
  (perform (op define-variable!) (const announce-output) (reg val) (reg env))
  (assign proc (const ok))
  (assign val (op make-compiled-procedure) (label entry9) (reg env))
  (goto (label after-lambda8))
  entry9
  (assign env (op compiled-procedure-env) (reg proc))
  (assign env (op extend-environment) (const (object)) (reg argl) (reg env))
  (save continue)
  (save env)
  (assign proc
          (op lookup-variable-value)
          (const compound-procedure?)
          (reg env))
  (assign val (op lookup-variable-value) (const object) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch30))
  compiled-branch29
  (assign continue (label after-call28))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch30
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call28
  (restore env)
  (restore continue)
  (test (op false?) (reg val))
  (branch (label false-branch11))
  true-branch12
  (assign proc (op lookup-variable-value) (const display) (reg env))
  (save continue)
  (save proc)
  (assign proc (op lookup-variable-value) (const list) (reg env))
  (save proc)
  (assign val (const <procedure-env>))
  (assign argl (op list) (reg val))
  (save env)
  (save argl)
  (assign proc (op lookup-variable-value) (const procedure-body) (reg env))
  (assign val (op lookup-variable-value) (const object) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch21))
  compiled-branch20
  (assign continue (label after-call19))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch21
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call19
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (restore env)
  (save argl)
  (assign proc
          (op lookup-variable-value)
          (const procedure-parameters)
          (reg env))
  (assign val (op lookup-variable-value) (const object) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch18))
  compiled-branch17
  (assign continue (label after-call16))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch18
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call16
  (restore argl)
  (assign argl (op cons) (reg val) (reg argl))
  (assign val (const compound-procedure))
  (assign argl (op cons) (reg val) (reg argl))
  (restore proc)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch24))
  compiled-branch23
  (assign continue (label after-call22))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch24
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call22
  (assign argl (op list) (reg val))
  (restore proc)
  (restore continue)
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch27))
  compiled-branch26
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch27
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call25
  false-branch11
  (assign proc (op lookup-variable-value) (const display) (reg env))
  (assign val (op lookup-variable-value) (const object) (reg env))
  (assign argl (op list) (reg val))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch15))
  compiled-branch14
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch15
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call13
  after-if10
  after-lambda8
  (perform (op define-variable!) (const user-print) (reg val) (reg env))
  (assign proc (const ok))
  (save env)
  (assign proc (op lookup-variable-value) (const setup-environment) (reg env))
  (assign argl (const ()))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch7))
  compiled-branch6
  (assign continue (label after-call5))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch7
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call5
  (restore env)
  (perform (op define-variable!)
           (const the-global-environment)
           (reg val)
           (reg env))
  (assign proc (const ok))
  (assign proc (op lookup-variable-value) (const driver-loop) (reg env))
  (assign argl (const ()))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch3))
  compiled-branch2
  (assign continue (label proc-return4))
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  proc-return4
  (assign proc (reg val))
  (goto (label after-call1))
  primitive-branch3
  (assign proc (op apply-primitive-procedure) (reg proc) (reg argl))
  after-call1
  (restore continue)
  (assign argl (const ()))
  (test (op primitive-procedure?) (reg proc))
  (branch (label primitive-branch1098))
  compiled-branch1097
  (assign val (op compiled-procedure-entry) (reg proc))
  (goto (reg val))
  primitive-branch1098
  (assign val (op apply-primitive-procedure) (reg proc) (reg argl))
  (goto (reg continue))
  after-call1096))