let rec step1 ?story () = match story with
| Some s -> step2 s#title
| None -> step2 "title1"
and step2 title =
let story =
object
method title = title
method count = 0
end
in step3 ~story
and step3 ~story = match story#count with
| 0 ->
| 1 ->
let story =
object
method title = "title2"
end
in step1 ~story ()
| _ ->
true