#load "graphics.cma";; open Graphics;; open_graph "820x500";; open Random;; let rec montagne n x y i j = let ligne x y z t = begin moveto x y; lineto z t end in if n = 0 then ligne x y i j else let mid = (x+i) / 2 and h = (y+j) / 2 + int (abs(i-x) / 5 + 20) in begin montagne (n-1) x y mid h; montagne (n-1) mid h i j end;; montagne 9 10 200 800 200;;