Main.main = \ (xSDt0 :: Base.Unit) of !{Graphics.TinyPTC.!Graphics; Control.Exception.!Throw; System.Console.!Console; System.Error.!Error} -> [** Base.Unit ] do { match { | Base.Unit <- do { xSDt0; } = do { xCS0 = Main.simple; Control.Exception.topHandle Base.Unit !{Graphics.TinyPTC.!Graphics; Control.Exception.!Throw} $EMPTY xCS0; }; }; }; Main.simple = \ (xSDt1 :: Base.Unit) of !{Graphics.TinyPTC.!Graphics; Control.Exception.!Throw} -> [** Base.Unit ] do { match { | Base.Unit <- do { xSDt1; } = local %rTC3 with {+wCB2 = Base.Const %rTC3; +wCB3 = Base.Direct %rTC3} in local %rTS0 with {+wCB4 = Base.Mutable %rTS0; +wCB5 = Base.Direct %rTS0} in local %rTS1 with {+wCB6 = Base.Const %rTS1; +wCB7 = Base.Direct %rTS1} in do { frame = /\ (+xC0 :: Base.Mutable %rTS0) -> [** (Graphics.Frame.Frame %rTS1 %rTS0) ] local %rTS2 with {+wCB0 = Base.Mutable %rTS2; +wCB1 = Base.Direct %rTS2} in do { xCS1 = prim{Box} %rTS2 ("Square"# %rTS2); xCS2 = prim{Box} %rTS1 600#32i; xCS3 = prim{Box} %rTS1 600#32i; Graphics.Frame.frame_new %rTS0 %rTS1 %rTS2 +wCB0 xCS1 xCS2 xCS3; }; xCS5 = \ (z :: Base.Unit) of !{Base.!Read %rTS1; Base.!Read %rTS0; Base.!Write %rTS0; Base.!Read %rTC3; Graphics.TinyPTC.!Graphics; Control.Exception.!Throw} (frame : Graphics.Frame.Frame %rTS1 %rTS0) -> do { xCS4 = prim{Box} %rTC3 1.0#32f; Main.squareSpin %rTC3 %rTS1 %rTS0 +wCB4 +wCB3 (frame +wCB4) xCS4; }; Control.Exception.gate !{Base.!Read %rTS1; Base.!Read %rTS0; Base.!Write %rTS0; Base.!Read %rTC3; Graphics.TinyPTC.!Graphics; Control.Exception.!Throw} (frame : Graphics.Frame.Frame %rTS1 %rTS0) xCS5; }; }; }; Main.squareSpin = /\ %rTC5, %rTS6, %rTS7 -> /\ (+xC3 :: Base.Mutable %rTS7) -> /\ (+xC2 :: Base.Direct %rTC5) -> \ (frame :: Graphics.Frame.Frame %rTS6 %rTS7) -> \ (rot :: Base.Float %rTC5) of !{Base.!Read %rTS6; Base.!Read %rTS7; Base.!Write %rTS7; Base.!Read %rTC5; Graphics.TinyPTC.!Graphics; Control.Exception.!Throw} (frame : Graphics.Frame.Frame %rTS6 %rTS7) -> [** Base.Unit ] local %rTC11 with {+wCB10 = Base.Const %rTC11; +wCB11 = Base.Direct %rTC11} in local %rTC13 with {+wCB12 = Base.Const %rTC13; +wCB13 = Base.Direct %rTC13} in local %rTS4 with {+wCB14 = Base.Const %rTS4; +wCB15 = Base.Direct %rTS4} in local %rTS9 with {+wCB16 = Base.Const %rTS9; +wCB17 = Base.Direct %rTS9} in local %rTS10 with {+wCB18 = Base.Const %rTS10; +wCB19 = Base.Direct %rTS10} in local %rTS78 with {+wCB20 = Base.Const %rTS78; +wCB21 = Base.Direct %rTS78} in local %rTS81 with {+wCB22 = Base.Const %rTS81; +wCB23 = Base.Direct %rTS81} in do { xCS8 = Graphics.Frame.project_Frame_array %rTS6 %rTS7 frame; xCS9 = prim{Box} %rTS4 0#32i; Data.ArrayU.arrayUI_fill %rTS6 %rTS4 %rTS7 +xC3 xCS8 xCS9; xCS27 = Base.Unit; xCS23 = Math.Matrix.Matrix33.project_Matrix33_id %rTC5 xCS27; xCS28 = prim{Box} %rTC5 255#32i; xCS29 = prim{Box} %rTC5 255#32i; xCS30 = prim{Box} %rTC5 255#32i; xCS24 = Graphics.Primitive.Color %rTC5 xCS28 xCS29 xCS30; xCS18 = Data.Tuple.Tuple2 %rTS10 (Math.Matrix.Matrix33.Matrix33 %rTC5) (Graphics.Primitive.Primitive %rTC5) xCS23 xCS24; xCS19 = Data.List.Nil %rTS9 (Data.Tuple.Tuple2 %rTS10 (Math.Matrix.Matrix33.Matrix33 %rTC5) (Graphics.Primitive.Primitive %rTC5)); xCS14 = Data.List.Cons %rTS9 (Data.Tuple.Tuple2 %rTS10 (Math.Matrix.Matrix33.Matrix33 %rTC5) (Graphics.Primitive.Primitive %rTC5)) xCS18 xCS19; xCS10 = Graphics.Render.renderPrims %rTC5 %rTS9 %rTS10 %rTC5 %rTS6 %rTS7 +xC3 frame xCS14; xCS25 = prim{Box} %rTC5 300.0#32f; xCS26 = prim{Box} %rTC5 300.0#32f; xCS20 = Graphics.Primitive.Translate %rTC5 xCS25 xCS26; xCS21 = Data.List.Nil %rTC5 (Graphics.Primitive.Primitive %rTC5); xCS15 = Data.List.Cons %rTC5 (Graphics.Primitive.Primitive %rTC5) xCS20 xCS21; xCS22 = prim{Box} %rTS78 3#32i; xCS16 = Main.frac %rTC5 %rTS78 +wCB20 +xC2 xCS22 rot; xCS11 = Data.List.(++) (Graphics.Primitive.Primitive %rTC5) %rTC5 xCS15 xCS16; Base.($) (Data.List.List %rTC5 (Graphics.Primitive.Primitive %rTC5)) (Data.List.List %rTS9 (Data.Tuple.Tuple2 %rTS10 (Math.Matrix.Matrix33.Matrix33 %rTC5) (Graphics.Primitive.Primitive %rTC5))) !{Base.!Read %rTC5; Base.!Read %rTS6; Base.!Write %rTS7; Base.!Read %rTS9; Base.!Read %rTS10} ${frame : Graphics.Frame.Frame %rTS6 %rTS7; ctmStack : Data.List.List %rTS9 (Data.Tuple.Tuple2 %rTS10 (Math.Matrix.Matrix33.Matrix33 %rTC5) (Graphics.Primitive.Primitive %rTC5))} xCS10 xCS11; Graphics.Frame.project_Frame_update %rTS6 %rTS7 frame; xCS12 = prim{Box} %rTC11 4.0#32f; xC1 = Class.Ord.(>) (Base.Float %rTC5) (Base.Float %rTC11) %rTS81 (Base.Shape2 (Base.Float %rTC5) (Base.Float %rTC11)) (Ord (Base.Float %rTC5)) rot xCS12; match { | Data.Bool.True <- do { xC1; } = local %rTS83 with {+wCB8 = Base.Const %rTS83; +wCB9 = Base.Direct %rTS83} in do { xCS7 = Control.Exception.ExceptionBreak; xCS6 = xCS7 %rTS83; Control.Exception.primThrow Base.Unit %rTS83 xCS6; }; | otherwise = do { Base.Unit; }; }; xCS17 = prim{Box} %rTC13 9.999999776482582e-3#32f; xCS13 = Class.Num.(+) (Base.Float %rTC5) (Base.Float %rTC13) (Base.Float %rTC5) (Base.Shape3 (Base.Float %rTC5) (Base.Float %rTC13) (Base.Float %rTC5)) (Num (Base.Float %rTC5)) rot xCS17; Main.squareSpin %rTC5 %rTS6 %rTS7 +xC3 +xC2 frame xCS13; }; Main.frac = /\ %r1, %r2 -> /\ (+xC6 :: Base.Const %r2) -> /\ (+xC5 :: Base.Direct %r1) -> \ (xSDt8 :: Base.Int %r2) -> \ (r :: Base.Float %r1) of !{Base.!Read %r2; Base.!Read %r1} (xSDt8 : Base.Int %r2) -> [** (Data.List.List %r1 (Graphics.Primitive.Primitive %r1)) ] do { match { | 0#32i <- do { xCS31 = prim{Force} xSDt8; prim{Unbox} %r2 xCS31; } = local %rTS23 with {+wCB24 = Base.Const %rTS23; +wCB25 = Base.Direct %rTS23} in local %rTS24 with {+wCB26 = Base.Const %rTS24; +wCB27 = Base.Direct %rTS24} in do { xCS32 = prim{Box} %rTS23 50.0#32f; xCS33 = prim{Box} %rTS24 50.0#32f; Graphics.Shape.rectangleC %rTS23 %rTS24 %r1 %r1 xCS32 xCS33; }; | otherwise = local %rTC25 with {+wCB40 = Base.Const %rTC25; +wCB41 = Base.Direct %rTC25} in local %rTC26 with {+wCB42 = Base.Const %rTC26; +wCB43 = Base.Direct %rTC26} in local %rTC27 with {+wCB44 = Base.Const %rTC27; +wCB45 = Base.Direct %rTC27} in local %rTC28 with {+wCB46 = Base.Const %rTC28; +wCB47 = Base.Direct %rTC28} in local %rTC29 with {+wCB48 = Base.Const %rTC29; +wCB49 = Base.Direct %rTC29} in local %rTC30 with {+wCB50 = Base.Const %rTC30; +wCB51 = Base.Direct %rTC30} in local %rTC31 with {+wCB52 = Base.Const %rTC31; +wCB53 = Base.Direct %rTC31} in local %rTC32 with {+wCB54 = Base.Const %rTC32; +wCB55 = Base.Direct %rTC32} in local %rTC33 with {+wCB56 = Base.Const %rTC33; +wCB57 = Base.Direct %rTC33} in local %rTC34 with {+wCB58 = Base.Const %rTC34; +wCB59 = Base.Direct %rTC34} in local %rTC35 with {+wCB60 = Base.Const %rTC35; +wCB61 = Base.Direct %rTC35} in local %rTC36 with {+wCB62 = Base.Const %rTC36; +wCB63 = Base.Direct %rTC36} in local %rTC37 with {+wCB64 = Base.Const %rTC37; +wCB65 = Base.Direct %rTC37} in local %rTC38 with {+wCB66 = Base.Const %rTC38; +wCB67 = Base.Direct %rTC38} in local %rTC39 with {+wCB68 = Base.Const %rTC39; +wCB69 = Base.Direct %rTC39} in local %rTC40 with {+wCB70 = Base.Const %rTC40; +wCB71 = Base.Direct %rTC40} in local %rTC41 with {+wCB72 = Base.Const %rTC41; +wCB73 = Base.Direct %rTC41} in local %rTC42 with {+wCB74 = Base.Const %rTC42; +wCB75 = Base.Direct %rTC42} in local %rTC43 with {+wCB76 = Base.Const %rTC43; +wCB77 = Base.Direct %rTC43} in local %rTC44 with {+wCB78 = Base.Const %rTC44; +wCB79 = Base.Direct %rTC44} in local %rTC45 with {+wCB80 = Base.Const %rTC45; +wCB81 = Base.Direct %rTC45} in local %rTC46 with {+wCB82 = Base.Const %rTC46; +wCB83 = Base.Direct %rTC46} in local %rTC47 with {+wCB84 = Base.Const %rTC47; +wCB85 = Base.Direct %rTC47} in local %rTC48 with {+wCB86 = Base.Const %rTC48; +wCB87 = Base.Direct %rTC48} in local %rTS32 with {+wCB88 = Base.Const %rTS32; +wCB89 = Base.Direct %rTS32} in local %rTS33 with {+wCB90 = Base.Const %rTS33; +wCB91 = Base.Direct %rTS33} in do { c = /\ (+xC4 :: Base.Direct %r1) -> [** (Graphics.Primitive.Primitive %r1) ] local %rTC18 with {+wCB28 = Base.Const %rTC18; +wCB29 = Base.Direct %rTC18} in local %rTC20 with {+wCB30 = Base.Const %rTC20; +wCB31 = Base.Direct %rTC20} in local %rTC22 with {+wCB32 = Base.Const %rTC22; +wCB33 = Base.Direct %rTC22} in local %rTS28 with {+wCB34 = Base.Const %rTS28; +wCB35 = Base.Direct %rTS28} in local %rTS29 with {+wCB36 = Base.Const %rTS29; +wCB37 = Base.Direct %rTS29} in local %rTS30 with {+wCB38 = Base.Const %rTS30; +wCB39 = Base.Direct %rTS30} in do { xCS43 = prim{Box} %r2 40#32i; xCS37 = Class.Num.(*) (Base.Int %r2) (Base.Int %r2) (Base.Int %rTS28) (Base.Shape3 (Base.Int %r2) (Base.Int %r2) (Base.Int %rTS28)) (Num (Base.Int %r2)) xSDt8 xCS43; xCS38 = prim{Box} %rTC18 50#32i; xCS34 = Class.Num.(+) (Base.Int %rTS28) (Base.Int %rTC18) (Base.Int %r1) (Base.Shape3 (Base.Int %rTS28) (Base.Int %rTC18) (Base.Int %r1)) (Num (Base.Int %rTS28)) xCS37 xCS38; xCS44 = prim{Box} %r2 40#32i; xCS39 = Class.Num.(*) (Base.Int %r2) (Base.Int %r2) (Base.Int %rTS29) (Base.Shape3 (Base.Int %r2) (Base.Int %r2) (Base.Int %rTS29)) (Num (Base.Int %r2)) xSDt8 xCS44; xCS40 = prim{Box} %rTC20 50#32i; xCS35 = Class.Num.(+) (Base.Int %rTS29) (Base.Int %rTC20) (Base.Int %r1) (Base.Shape3 (Base.Int %rTS29) (Base.Int %rTC20) (Base.Int %r1)) (Num (Base.Int %rTS29)) xCS39 xCS40; xCS45 = prim{Box} %r2 60#32i; xCS41 = Class.Num.(*) (Base.Int %r2) (Base.Int %r2) (Base.Int %rTS30) (Base.Shape3 (Base.Int %r2) (Base.Int %r2) (Base.Int %rTS30)) (Num (Base.Int %r2)) xSDt8 xCS45; xCS42 = prim{Box} %rTC22 50#32i; xCS36 = Class.Num.(+) (Base.Int %rTS30) (Base.Int %rTC22) (Base.Int %r1) (Base.Shape3 (Base.Int %rTS30) (Base.Int %rTC22) (Base.Int %r1)) (Num (Base.Int %rTS30)) xCS41 xCS42; Graphics.Primitive.Color %r1 xCS34 xCS35 xCS36; }; xCS48 = prim{Box} %rTS32 50.0#32f; xCS49 = prim{Box} %rTS33 50.0#32f; xCS46 = Graphics.Shape.rectangleC %rTS32 %rTS33 %r1 %r1 xCS48 xCS49; xCS69 = prim{Box} %rTC25 0.0#32f; xCS70 = prim{Box} %rTC26 50.0#32f; xCS60 = Class.Num.(+) (Base.Float %rTC25) (Base.Float %rTC26) (Base.Float %r1) (Base.Shape3 (Base.Float %rTC25) (Base.Float %rTC26) (Base.Float %r1)) (Num (Base.Float %rTC25)) xCS69 xCS70; xCS71 = prim{Box} %rTC27 0.0#32f; xCS72 = prim{Box} %rTC28 50.0#32f; xCS61 = Class.Num.(+) (Base.Float %rTC27) (Base.Float %rTC28) (Base.Float %r1) (Base.Shape3 (Base.Float %rTC27) (Base.Float %rTC28) (Base.Float %r1)) (Num (Base.Float %rTC27)) xCS71 xCS72; xCS55 = Graphics.Primitive.Translate %r1 xCS60 xCS61; xCS62 = Graphics.Primitive.Rotate %r1 r; xCS116 = prim{Box} %rTC29 1#32i; xCS106 = Class.Num.(-) (Base.Int %r2) (Base.Int %rTC29) (Base.Int %r2) (Base.Shape3 (Base.Int %r2) (Base.Int %rTC29) (Base.Int %r2)) (Num (Base.Int %r2)) xSDt8 xCS116; xCS117 = prim{Box} %rTC30 1.100000023841858#32f; xCS107 = Class.Num.(*) (Base.Float %r1) (Base.Float %rTC30) (Base.Float %r1) (Base.Shape3 (Base.Float %r1) (Base.Float %rTC30) (Base.Float %r1)) (Num (Base.Float %r1)) r xCS117; xCS94 = Main.frac %r1 %r2 +xC6 +xC5 xCS106 xCS107; xCS81 = Graphics.Primitive.Prims %r1 xCS94; xCS82 = Data.List.Nil %r1 (Graphics.Primitive.Primitive %r1); xCS73 = Data.List.Cons %r1 (Graphics.Primitive.Primitive %r1) xCS81 xCS82; xCS63 = Data.List.Cons %r1 (Graphics.Primitive.Primitive %r1) (c +xC5) xCS73; xCS56 = Data.List.Cons %r1 (Graphics.Primitive.Primitive %r1) xCS62 xCS63; xCS52 = Data.List.Cons %r1 (Graphics.Primitive.Primitive %r1) xCS55 xCS56; xCS50 = Graphics.Primitive.Local %r1 xCS52; xCS83 = prim{Box} %rTC31 0.0#32f; xCS84 = prim{Box} %rTC32 50.0#32f; xCS74 = Class.Num.(+) (Base.Float %rTC31) (Base.Float %rTC32) (Base.Float %r1) (Base.Shape3 (Base.Float %rTC31) (Base.Float %rTC32) (Base.Float %r1)) (Num (Base.Float %rTC31)) xCS83 xCS84; xCS85 = prim{Box} %rTC33 0.0#32f; xCS86 = prim{Box} %rTC34 50.0#32f; xCS75 = Class.Num.(-) (Base.Float %rTC33) (Base.Float %rTC34) (Base.Float %r1) (Base.Shape3 (Base.Float %rTC33) (Base.Float %rTC34) (Base.Float %r1)) (Num (Base.Float %rTC33)) xCS85 xCS86; xCS64 = Graphics.Primitive.Translate %r1 xCS74 xCS75; xCS76 = Graphics.Primitive.Rotate %r1 r; xCS123 = prim{Box} %rTC35 1#32i; xCS118 = Class.Num.(-) (Base.Int %r2) (Base.Int %rTC35) (Base.Int %r2) (Base.Shape3 (Base.Int %r2) (Base.Int %rTC35) (Base.Int %r2)) (Num (Base.Int %r2)) xSDt8 xCS123; xCS124 = prim{Box} %rTC36 1.100000023841858#32f; xCS119 = Class.Num.(*) (Base.Float %r1) (Base.Float %rTC36) (Base.Float %r1) (Base.Shape3 (Base.Float %r1) (Base.Float %rTC36) (Base.Float %r1)) (Num (Base.Float %r1)) r xCS124; xCS108 = Main.frac %r1 %r2 +xC6 +xC5 xCS118 xCS119; xCS95 = Graphics.Primitive.Prims %r1 xCS108; xCS96 = Data.List.Nil %r1 (Graphics.Primitive.Primitive %r1); xCS87 = Data.List.Cons %r1 (Graphics.Primitive.Primitive %r1) xCS95 xCS96; xCS77 = Data.List.Cons %r1 (Graphics.Primitive.Primitive %r1) (c +xC5) xCS87; xCS65 = Data.List.Cons %r1 (Graphics.Primitive.Primitive %r1) xCS76 xCS77; xCS57 = Data.List.Cons %r1 (Graphics.Primitive.Primitive %r1) xCS64 xCS65; xCS53 = Graphics.Primitive.Local %r1 xCS57; xCS97 = prim{Box} %rTC37 0.0#32f; xCS98 = prim{Box} %rTC38 50.0#32f; xCS88 = Class.Num.(-) (Base.Float %rTC37) (Base.Float %rTC38) (Base.Float %r1) (Base.Shape3 (Base.Float %rTC37) (Base.Float %rTC38) (Base.Float %r1)) (Num (Base.Float %rTC37)) xCS97 xCS98; xCS99 = prim{Box} %rTC39 0.0#32f; xCS100 = prim{Box} %rTC40 50.0#32f; xCS89 = Class.Num.(+) (Base.Float %rTC39) (Base.Float %rTC40) (Base.Float %r1) (Base.Shape3 (Base.Float %rTC39) (Base.Float %rTC40) (Base.Float %r1)) (Num (Base.Float %rTC39)) xCS99 xCS100; xCS78 = Graphics.Primitive.Translate %r1 xCS88 xCS89; xCS90 = Graphics.Primitive.Rotate %r1 r; xCS128 = prim{Box} %rTC41 1#32i; xCS125 = Class.Num.(-) (Base.Int %r2) (Base.Int %rTC41) (Base.Int %r2) (Base.Shape3 (Base.Int %r2) (Base.Int %rTC41) (Base.Int %r2)) (Num (Base.Int %r2)) xSDt8 xCS128; xCS129 = prim{Box} %rTC42 1.100000023841858#32f; xCS126 = Class.Num.(*) (Base.Float %r1) (Base.Float %rTC42) (Base.Float %r1) (Base.Shape3 (Base.Float %r1) (Base.Float %rTC42) (Base.Float %r1)) (Num (Base.Float %r1)) r xCS129; xCS120 = Main.frac %r1 %r2 +xC6 +xC5 xCS125 xCS126; xCS109 = Graphics.Primitive.Prims %r1 xCS120; xCS110 = Data.List.Nil %r1 (Graphics.Primitive.Primitive %r1); xCS101 = Data.List.Cons %r1 (Graphics.Primitive.Primitive %r1) xCS109 xCS110; xCS91 = Data.List.Cons %r1 (Graphics.Primitive.Primitive %r1) (c +xC5) xCS101; xCS79 = Data.List.Cons %r1 (Graphics.Primitive.Primitive %r1) xCS90 xCS91; xCS66 = Data.List.Cons %r1 (Graphics.Primitive.Primitive %r1) xCS78 xCS79; xCS58 = Graphics.Primitive.Local %r1 xCS66; xCS111 = prim{Box} %rTC43 0.0#32f; xCS112 = prim{Box} %rTC44 50.0#32f; xCS102 = Class.Num.(-) (Base.Float %rTC43) (Base.Float %rTC44) (Base.Float %r1) (Base.Shape3 (Base.Float %rTC43) (Base.Float %rTC44) (Base.Float %r1)) (Num (Base.Float %rTC43)) xCS111 xCS112; xCS113 = prim{Box} %rTC45 0.0#32f; xCS114 = prim{Box} %rTC46 50.0#32f; xCS103 = Class.Num.(-) (Base.Float %rTC45) (Base.Float %rTC46) (Base.Float %r1) (Base.Shape3 (Base.Float %rTC45) (Base.Float %rTC46) (Base.Float %r1)) (Num (Base.Float %rTC45)) xCS113 xCS114; xCS92 = Graphics.Primitive.Translate %r1 xCS102 xCS103; xCS104 = Graphics.Primitive.Rotate %r1 r; xCS132 = prim{Box} %rTC47 1#32i; xCS130 = Class.Num.(-) (Base.Int %r2) (Base.Int %rTC47) (Base.Int %r2) (Base.Shape3 (Base.Int %r2) (Base.Int %rTC47) (Base.Int %r2)) (Num (Base.Int %r2)) xSDt8 xCS132; xCS133 = prim{Box} %rTC48 1.100000023841858#32f; xCS131 = Class.Num.(*) (Base.Float %r1) (Base.Float %rTC48) (Base.Float %r1) (Base.Shape3 (Base.Float %r1) (Base.Float %rTC48) (Base.Float %r1)) (Num (Base.Float %r1)) r xCS133; xCS127 = Main.frac %r1 %r2 +xC6 +xC5 xCS130 xCS131; xCS121 = Graphics.Primitive.Prims %r1 xCS127; xCS122 = Data.List.Nil %r1 (Graphics.Primitive.Primitive %r1); xCS115 = Data.List.Cons %r1 (Graphics.Primitive.Primitive %r1) xCS121 xCS122; xCS105 = Data.List.Cons %r1 (Graphics.Primitive.Primitive %r1) (c +xC5) xCS115; xCS93 = Data.List.Cons %r1 (Graphics.Primitive.Primitive %r1) xCS104 xCS105; xCS80 = Data.List.Cons %r1 (Graphics.Primitive.Primitive %r1) xCS92 xCS93; xCS67 = Graphics.Primitive.Local %r1 xCS80; xCS68 = Data.List.Nil %r1 (Graphics.Primitive.Primitive %r1); xCS59 = Data.List.Cons %r1 (Graphics.Primitive.Primitive %r1) xCS67 xCS68; xCS54 = Data.List.Cons %r1 (Graphics.Primitive.Primitive %r1) xCS58 xCS59; xCS51 = Data.List.Cons %r1 (Graphics.Primitive.Primitive %r1) xCS53 xCS54; xCS47 = Data.List.Cons %r1 (Graphics.Primitive.Primitive %r1) xCS50 xCS51; Data.List.(++) (Graphics.Primitive.Primitive %r1) %r1 xCS46 xCS47; }; }; };