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")