sub japhy {
  my $s = shift;
  join '-', unpack join('', map "A$_", @_), $s;
}