(Program
  (Try
  { (Identifier)
  ->(Identifier) }
  {+(Identifier)+}
  {+(Catch
    {+(
      {+(Identifier)+}
      {+(Identifier)+}
      {+(Identifier)+})+}
    {+([])+})+}
  {+(Catch
    {+(Let
      {+(Identifier)+}
      {+(Identifier)+}
      {+(Empty)+})+}
    {+(
      {+(Identifier)+}
      {+(Identifier)+})+})+}
  {+(Catch
    {+(
      {+(Identifier)+}
      {+(Identifier)+}
      {+(Identifier)+}
      {+(Identifier)+})+}
    {+([])+})+}
  {+(Catch
    {+(
      {+(Identifier)+}
      {+(Identifier)+})+}
    {+([])+})+}
  {-(Finally
    {-(
      {-(Identifier)-})-})-})
  (Try
  { (Identifier)
  ->(Identifier) }
  {+(Identifier)+}
  {+(Finally
    {+(
      {+(Identifier)+}
      {+(Identifier)+})+})+}
  {-(Catch
    {-(
      {-(Identifier)-}
      {-(Identifier)-})-}
    {-([])-})-}
  {-(Catch
    {-(Let
      {-(Identifier)-}
      {-(Identifier)-}
      {-(Empty)-})-}
    {-(
      {-(Identifier)-})-})-}
  {-(Catch
    {-(
      {-(Identifier)-}
      {-(Identifier)-}
      {-(Identifier)-})-}
    {-([])-})-}
  {-(Catch
    {-(
      {-(Identifier)-})-}
    {-([])-})-}))