source: to-imperative/trunk/samples/Syntax/const4.rf @ 716

$use StdIO;

$const A1 = 'A';
$const A2 = (&A1)(&A1);
$const A3 = (&A2)(&A2);
$const A4 = (&A3)(&A3);
$const A5 = (&A4)(&A4);
$const A6 = (&A5)(&A5);
$const A7 = (&A6)(&A6);
$const A8 = (&A7)(&A7);
$const A9 = (&A8)(&A8);
$const A10 = (&A9)(&A9);
$const A11 = (&A10)(&A10);
$const A12 = (&A11)(&A11);
$const A13 = (&A12)(&A12);
$const A14 = (&A13)(&A13);
$const A15 = (&A14)(&A14);
$const A16 = (&A15)(&A15);
$const A17 = (&A16)(&A16);
$const A18 = (&A17)(&A17);
$const A19 = (&A18)(&A18);
$const A20 = (&A19)(&A19);
$const A21 = (&A20)(&A20);
$const A22 = (&A21)(&A21);
$const A23 = (&A22)(&A22);
$const A24 = (&A23)(&A23);
$const A25 = (&A24)(&A24);
$const A26 = (&A25)(&A25);
$const A27 = (&A26)(&A26);
$const A28 = (&A27)(&A27);
$const A29 = (&A28)(&A28);
$const A30 = (&A29)(&A29);
$const A31 = (&A30)(&A30);
$const A32 = (&A31)(&A31);
$const A33 = (&A32)(&A32);
$const A34 = (&A33)(&A33);
$const A35 = (&A34)(&A34);
$const A36 = (&A35)(&A35);
$const A37 = (&A36)(&A36);
$const A38 = (&A37)(&A37);
$const A39 = (&A38)(&A38);
$const A40 = (&A39)(&A39);
$const A41 = (&A40)(&A40);
$const A42 = (&A41)(&A41);
$const A43 = (&A42)(&A42);
$const A44 = (&A43)(&A43);
$const A45 = (&A44)(&A44);
$const A46 = (&A45)(&A45);
$const A47 = (&A46)(&A46);
$const A48 = (&A47)(&A47);
$const A49 = (&A48)(&A48);
$const A50 = (&A49)(&A49);
$const A51 = (&A50)(&A50);
$const A52 = (&A51)(&A51);
$const A53 = (&A52)(&A52);
$const A54 = (&A53)(&A53);
$const A55 = (&A54)(&A54);
$const A56 = (&A55)(&A55);
$const A57 = (&A56)(&A56);
$const A58 = (&A57)(&A57);
$const A59 = (&A58)(&A58);
$const A60 = (&A59)(&A59);
$const A61 = (&A60)(&A60);
$const A62 = (&A61)(&A61);
$const A63 = (&A62)(&A62);
$const A64 = (&A63)(&A63);

Main = 
  {
    &A63 : &A64;
    &A1 &A57 'A' : 'A' &A57 &A1 = <PrintLN 'OK'>;
  };