waf

FORK: waf with some random patches
git clone https://git.neptards.moe/neptards/waf.git
Log | Files | Refs | README

main.ml (296B)

      1 
      2 open Printf;;
      3 
      4 open Somemodule;;
      5 
      6 (* coin coin ( ) ( ( (*  ) ) ) ( ) muahha open nono;; *) *)
      7 (* ( *)
      8 
      9 let rec fib n =
     10 	if n < 1 then 1
     11 	else if n == 1 then 1
     12 	else fib(n-1) + fib(n-2);;
     13 
     14 for i=0 to 10 do
     15 	Somemodule.pprint "next";
     16 	Printf.printf " %d %d\n" i (fib i)
     17 done;;
     18 
     19 print_newline();;
     20