Voici un bref exemple qui montre comment dessiner une maison (enfin: un rectangle qui peut, vu de loin, faire penser à une maison très moche).

#open "graphics" ;; (* placer au debut du programme *)

let dessine_maison() = 
 moveto 100 100 ; 
 lineto 300 100 ; lineto 300 200 ; 
 lineto 200 250 ; lineto 100 200 ; lineto 100 100 ; 
 moveto 100 200 ; lineto 300 200 
;;

open_graph "" ;;

dessine_maison() ;;