A big bunch of dicks

(*
What's better than a big bunch of dicks to illustrate recursivity ?
<3
*)

let rec test x=
    let a = print_string( string_of_int(x) ^ " bites" ) in
    let b = print_newline() in
    let s = x+1 in
    if s <= 10000000 then
        test s;;

test 0;;