Sophie

Sophie

distrib > Mandriva > 2009.1 > x86_64 > media > contrib-backports > by-pkgid > 5449138d6297d4beefc46ffe46a8c51a > files > 257

waf-1.5.11-1mdv2009.1.noarch.rpm


open Printf;;

open Somemodule;;

(* coin coin ( ) ( ( (*  ) ) ) ( ) muahha open nono;; *) *)
(* ( *)

let rec fib n =
	if n < 1 then 1
	else if n == 1 then 1
	else fib(n-1) + fib(n-2);;

for i=0 to 10 do
	Somemodule.pprint "next";
	Printf.printf " %d %d\n" i (fib i)
done;;

print_newline();;