5 lines
136 B
OCaml

let rec list_repeat n elt =
if n = 0 then [] else elt :: (list_repeat (n-1) elt)
exception MyParsingError of (string * Ast.location)