#!/usr/bin/perl

@lines = <STDIN>;

chomp @lines;

sub mrk {
 my ($a, $b) = @_;
 if ($a > $b) {
   mrk($b, $a);
 } else {
   ++$dom{$a.$b};
 }
}

for $row (0..$#lines) {
  for $col (0..(-1 + length $lines[0])) {
    print "p$row$col ";
  }
}
foreach $i (0..8) {
  foreach $j ($i..8) {
    push @yar, $i.$j;
    print "d$i$j ";
  }
}
print "\n";

for $row (0..$#lines) {
  for $col (0..(-2 + length $lines[0])) {
    $foo = $lines[$row];
    $ha = substr($foo, $col, 1);
    $hb = substr($foo, $col+1, 1);
    $ca = $col + 1;
    ($ha,$hb) = ($hb,$ha) if ($ha > $hb);
    print "p$row$col p$row$ca d$ha$hb\n";
  }
}

for $row (0..($#lines-1)) {
  for $col (0..(-1 + length $lines[0])) {
    $ha = substr($lines[$row], $col, 1);
    $hb = substr($lines[$row+1], $col, 1);
    $ra = $row + 1;
    ($ha,$hb) = ($hb,$ha) if ($ha > $hb);
    print "p$ra$col p$row$col d$ha$hb\n";
  }
}