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