#!/usr/bin/perl

use strict;
use FileHandle;
use POSIX;

package main;
{
    my $line;           # input line
    my @fields;         # fields parsed from input line
    my @arg1;           # extruder field
    my $unretractline;  # unretract line
    my $retractline;    # retract line
    my $retract=0;      # retract flag
    my $axis;           # axis letter
    my $rest;           # rest of arg

    while (<STDIN>)
    {
        $line = $_;

        @fields = split /\s+/, $line;

        $axis = substr($fields[1],0,1);
        $rest = substr($fields[1],1);

        if ($axis eq 'E')
        {
            $axis = 'A';
            $fields[1] = "$axis$rest";
            $retractline = join(' ', @fields);

            print $retractline,"\n";

            $rest = -$rest;
            $fields[1] = "$axis$rest";
            $unretractline = join(' ', @fields);

            $retract = 1;
        }
        elsif ($retract == 1)
        {
            print $line;
            print $unretractline,"\n";

            $retract = 0;
        }
        else
        {
            $line =~ tr /E/A/;
            print "line=$line";
        }
    }
}