RosettaCodeData/Task/Exceptions/Modula-3/exceptions-4.mod3

TRY
  Foo();
FINALLY
  CleanupFoo(); (* always executed *)
END;