Please use Ocaml

(*

Write an infinite precision version of the pel function from before

pell2 0 = []

pell2 1 = [1]

pell2 7 = [9; 6; 1]

pell2 50 = [2; 2; 5; 3; 5; 1; 4; 2; 9; 2; 4; 6; 2; 5; 7; 6; 6; 8; 4]

Hint: You may want to use the sum function from above again inside

pell2.

*)

let rec pell2 (i: int) : int list = failwith "unimplemented"