sub die_clean {
  my ($err) = @_;
  my ($rmk, $msg) = map {scalar reverse} split(/ ta /, reverse($err), 2);
  my ($line) = ($rmk =~ /line (\d+)/;
}