let init () =
  List.iter add (List.rev history_option#get)