#!/usr/bin/perl -w foreach my $line (<>) { my @instructions = split(/;/,$line); foreach my $ins (@instructions) { if ($ins =~ /^IN/) { print "H\n"; } elsif ($ins =~ /^SP(\d)/) { print "J$1\n"; } elsif ($ins =~ /^P([UD])(\d+),(\d+)$/) { my $x = int($2 / 4.0); my $y = 2600 - int($3 / 4.0); if ($1 eq 'D') { print "D$x,$y\n"; } else { print "M$x,$y\n"; } } } print "H\n"; }