RosettaCodeData/Task/Exceptions/Pop11/exceptions-2.pop11

define main();
   vars cargo;
   define catcher();
      ;;; print exception data
      cargo =>
   enddefine;
   catch(throw_exception, catcher, [my_exception ?cargo]);
enddefine;

main();