`try` should prevent tail recursion optimization

[vkurchatkin]

Example:

exception Foo

let rec test n =
  if n = 0 then
    raise Foo
  else
    try
      test (n - 1)
    with Foo -> ()