die "foo\n";

CATCH {
  when X::AdHoc {
    if .message.ends-with("\n") {
      note .message.chomp; # $*ERR.print( .message )
      exit 1;
    } else {
      .rethrow;
    }
  }
}