type node =
{
mutable next: node option;
value: int;
}
;;

type linkedlist =
{
mutable head: node option;
}
;;

let rec append element n option =
match n.next with
Some node -> append element n.next
| None -> n.next <- element;;