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 | |
---|