[ arr:'a array ] = array_of_list (listarg:'a)
[] let l = [1;2;3;4] ;; val l : int list = [1; 2; 3; 4] [] let a = array_of_list l ;; val a : int array = [|1; 2; 3; 4|]