let rec gen n =
[< 'n ; gen (n + 1) >]
;;