open Graphics
open Types
(* #load "graphics.cma" *)
(* #load "fixed.cmo" *)
let _ = open_graph " 1024x768"
let _ = set_color black
let plot_car =
 let size_y = size_y () in
 fun ({x=x; y=y},_,_) ->
 Graphics.plot (Fixed.to_coord x) (size_y - Fixed.to_coord y)
let plot freq cars =
 ignore
 (List.fold_left (fun counter car -> if counter <= 0
		 then (plot_car car; freq)
		 else pred counter) freq cars)
let list_iteri f l =
 ignore (List.fold_left (fun i elt -> f i elt; i+1) 0 l)
let array_for_all f a =
 let length = Array.length a in
 let rec loop i =
 if i = length then true else f a.(i) && loop (i+1) in
 loop 0
let rec dedoublonne = function
 |a::b::q -> if a = b then dedoublonne (b::q) else a :: dedoublonne (b::q)
 |[a] -> [a]
 |[] -> []
let merge_songs db = function
 | [] | [_] -> ()
 | id :: id's ->
 let mysql_ids = List.map ml642int id's in
 ()