let print_sys_silhouette m b =
let print_silhouette f =
print_char (if f = 0. then ' ' else '*')
in
Array.iteri
(fun i e ->
Array.iter print_silhouette e ; print_char '|' ;
print_silhouette b.(i) ; print_newline () ) m ;
print_string ((String.make (Array.length m.(0)) '-')^"+-\n")