+ T{ basic-block
+ { instructions
+ V{
+ T{ ##allot
+ f
+ T{ vreg f int-regs 1 }
+ 40
+ array
+ T{ vreg f int-regs 2 }
+ f
+ }
+ }
+ }
+ } clone [ [ clone ] map ] change-instructions
+ dup 1array (linear-scan) instructions>> first regs>> values all-equal?