1 | $use StdIO; |
---|
2 | |
---|
3 | $const A1 = 'A'; |
---|
4 | $const A2 = (&A1)(&A1); |
---|
5 | $const A3 = (&A2)(&A2); |
---|
6 | $const A4 = (&A3)(&A3); |
---|
7 | $const A5 = (&A4)(&A4); |
---|
8 | $const A6 = (&A5)(&A5); |
---|
9 | $const A7 = (&A6)(&A6); |
---|
10 | $const A8 = (&A7)(&A7); |
---|
11 | $const A9 = (&A8)(&A8); |
---|
12 | $const A10 = (&A9)(&A9); |
---|
13 | $const A11 = (&A10)(&A10); |
---|
14 | $const A12 = (&A11)(&A11); |
---|
15 | $const A13 = (&A12)(&A12); |
---|
16 | $const A14 = (&A13)(&A13); |
---|
17 | $const A15 = (&A14)(&A14); |
---|
18 | $const A16 = (&A15)(&A15); |
---|
19 | $const A17 = (&A16)(&A16); |
---|
20 | $const A18 = (&A17)(&A17); |
---|
21 | $const A19 = (&A18)(&A18); |
---|
22 | $const A20 = (&A19)(&A19); |
---|
23 | $const A21 = (&A20)(&A20); |
---|
24 | $const A22 = (&A21)(&A21); |
---|
25 | $const A23 = (&A22)(&A22); |
---|
26 | $const A24 = (&A23)(&A23); |
---|
27 | $const A25 = (&A24)(&A24); |
---|
28 | $const A26 = (&A25)(&A25); |
---|
29 | $const A27 = (&A26)(&A26); |
---|
30 | $const A28 = (&A27)(&A27); |
---|
31 | $const A29 = (&A28)(&A28); |
---|
32 | $const A30 = (&A29)(&A29); |
---|
33 | $const A31 = (&A30)(&A30); |
---|
34 | $const A32 = (&A31)(&A31); |
---|
35 | $const A33 = (&A32)(&A32); |
---|
36 | $const A34 = (&A33)(&A33); |
---|
37 | $const A35 = (&A34)(&A34); |
---|
38 | $const A36 = (&A35)(&A35); |
---|
39 | $const A37 = (&A36)(&A36); |
---|
40 | $const A38 = (&A37)(&A37); |
---|
41 | $const A39 = (&A38)(&A38); |
---|
42 | $const A40 = (&A39)(&A39); |
---|
43 | $const A41 = (&A40)(&A40); |
---|
44 | $const A42 = (&A41)(&A41); |
---|
45 | $const A43 = (&A42)(&A42); |
---|
46 | $const A44 = (&A43)(&A43); |
---|
47 | $const A45 = (&A44)(&A44); |
---|
48 | $const A46 = (&A45)(&A45); |
---|
49 | $const A47 = (&A46)(&A46); |
---|
50 | $const A48 = (&A47)(&A47); |
---|
51 | $const A49 = (&A48)(&A48); |
---|
52 | $const A50 = (&A49)(&A49); |
---|
53 | $const A51 = (&A50)(&A50); |
---|
54 | $const A52 = (&A51)(&A51); |
---|
55 | $const A53 = (&A52)(&A52); |
---|
56 | $const A54 = (&A53)(&A53); |
---|
57 | $const A55 = (&A54)(&A54); |
---|
58 | $const A56 = (&A55)(&A55); |
---|
59 | $const A57 = (&A56)(&A56); |
---|
60 | $const A58 = (&A57)(&A57); |
---|
61 | $const A59 = (&A58)(&A58); |
---|
62 | $const A60 = (&A59)(&A59); |
---|
63 | $const A61 = (&A60)(&A60); |
---|
64 | $const A62 = (&A61)(&A61); |
---|
65 | $const A63 = (&A62)(&A62); |
---|
66 | $const A64 = (&A63)(&A63); |
---|
67 | |
---|
68 | Main = |
---|
69 | { |
---|
70 | &A63 : &A64; |
---|
71 | &A1 &A57 'A' : 'A' &A57 &A1 = <PrintLN 'OK'>; |
---|
72 | }; |
---|
73 | |
---|