Guest User

Untitled

a guest
Jul 27th, 2018
107
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
OCaml 4.59 KB | None | 0 0
  1.  
  2. class Main {
  3.     io : IO <- new IO;
  4.    
  5.     p(a : Int) : Int {{
  6.         io.out_int(a <- a + 1).out_string("\n") ;
  7.         a <- a + 1;
  8.     }} ;
  9.    
  10.     main() : Object {
  11.         let a : Int <- 1,
  12.             a : Int <- a <- p(a <- p(a)),
  13.             a : Int <- a <- p(a <- p(a)),
  14.             a : Int <- a <- p(a <- p(a)),
  15.             a : Int <- a <- p(a <- p(a)),
  16.             a : Int <- a <- p(a <- p(a)) in {
  17.             a <- p(a <- p(a));
  18.             let a : Int <- a <- p(a <- p(a)),
  19.                 a : Int <- a <- p(a <- p(a)),
  20.                 a : Int <- a <- p(a <- p(a)),
  21.                 a : Int <- {
  22.                
  23.                     case a of
  24.                         a : Int =>
  25.                             let a : Int <- a <- p(a <- p(a)),
  26.                                 a : Int <- a <- p(a <- p(a)),
  27.                                 a : Int <- a <- p(a <- p(a)) in
  28.                                     p(a);
  29.                     esac;
  30.                 },
  31.                 a : Int <- a <- p(a <- p(a)),
  32.                 a : Int <- a <- p(a <- p(a))in {
  33.                 a <- p(a <- p(a));
  34.                 let a : Int <- a <- p(a <- p(a)),
  35.                     a : Int <- a <- p(a <- p(a)),
  36.                     a : Int <- a <- p(a <- p(a)),
  37.                     a : Int <- a <- p(a <- p(a)),
  38.                     a : Int <- a <- p(a <- p(a)),
  39.                     a : Int <- a <- p(a <- p(a))in {
  40.                     a <- p(a <- p(a));
  41.                     let a : Int <- a <- p(a <- p(a)),
  42.                         a : Int <- a <- p(a <- p(a)),
  43.                         a : Int <- a <- p(a <- p(a)),
  44.                         a : Int <- a <- p(a <- p(a)),
  45.                         a : Int <- a <- p(a <- p(a)),
  46.                         a : Int <- a <- p(a <- p(a))in {
  47.                         a <- p(a <- p(a));
  48.                         let a : Int <- a <- p(a <- p(a)),
  49.                             a : Int <- a <- p(a <- p(a)),
  50.                             a : Int <- a <- p(a <- p(a)),
  51.                             a : Int <- a <- p(a <- p(a)),
  52.                             a : Int <- a <- p(a <- p(a)),
  53.                             a : Int <- a <- p(a <- p(a))in {
  54.                             a <- p(a <- p(a));
  55.                             let a : Int <- a <- p(a <- p(a)),
  56.                                 a : Int <- a <- p(a <- p(a)),
  57.                                 a : Int <- a <- p(a <- p(a)),
  58.                                 a : Int <- a <- p(a <- p(a)),
  59.                                 a : Int <- a <- p(a <- p(a)),
  60.                                 a : Int <- a <- p(a <- p(a))in {
  61.                                 a <- p(a <- p(a));
  62.                                 let a : Int <- a <- p(a <- p(a)),
  63.                                     a : Int <- a <- p(a <- p(a)),
  64.                                     a : Int <- a <- p(a <- p(a)),
  65.                                     a : Int <- a <- p(a <- p(a)),
  66.                                     a : Int <- a <- p(a <- p(a)),
  67.                                     a : Int <- a <- p(a <- p(a))in {
  68.                                     a <- p(a <- p(a));
  69.                                     let a : Int <- a <- p(a <- p(a)),
  70.                                         a : Int <- a <- p(a <- p(a)),
  71.                                         a : Int <- a <- p(a <- p(a)),
  72.                                         a : Int <- a <- p(a <- p(a)),
  73.                                         a : Int <- a <- p(a <- p(a)),
  74.                                         a : Int <- a <- p(a <- p(a))in {
  75.                                         a <- p(a <- p(a));
  76.                                         let a : Int <- a <- p(a <- p(a)),
  77.                                             a : Int <- a <- p(a <- p(a)),
  78.                                             a : Int <- a <- p(a <- p(a)),
  79.                                             a : Int <- a <- p(a <- p(a)),
  80.                                             a : Int <- a <- p(a <- p(a)),
  81.                                             a : Int <- a <- p(a <- p(a))in {
  82.                                             a <- p(a <- p(a));
  83.                                         };
  84.                                         a <- p(a <- p(a));
  85.                                     };
  86.                                     a <- p(a <- p(a));
  87.                                 };
  88.                                 a <- p(a <- p(a));
  89.                             };
  90.                             a <- p(a <- p(a));
  91.                         };
  92.                         a <- p(a <- p(a));
  93.                     };
  94.                     a <- p(a <- p(a));
  95.                 };
  96.                 a <- p(a <- p(a));
  97.             };
  98.             a <- p(a <- p(a));
  99.         }
  100.     };
  101.    
  102.    
  103. };
Add Comment
Please, Sign In to add comment