let pourcent_cpu = fun () ->
 let x = Sys.command "exit `ps -ro %cpu | head -n 2 | tail -n 1 | cut -d. -f 1`" in
  ( string_of_int x ) ^ "% "