let(^)=List.map
let rec($)n l=n=0&[]=print_int^l;n-1$l@(+)1^l;;8$[0]