#! /usr/bin/perl

sub process_line {
	$line = $_[0];
	$del = $_[1];
	$i = index($line, $del);
	$left = substr($line, 0, $i);
	$right = substr($line, $i+8, length($line));
	$cobline = substr($line, $i + 4, 2);
	$cobpos = substr($line, $i + 6, 2);
	print "$left LINE $cobline POSITION $cobpos$right";

}


while ($line = <STDIN>) {

	if ($line =~ / at /) {
		process_line($line, " at ");
	} else {
		if ($line =~ / AT /) {
			process_line($line, " AT ");
	 	} else {
			if ($line =~ / At /) {
				process_line($line, " At ");
			} else {
				if ($line =~ / aT /) {
					process_line($line, " aT ");
				} else {
					print "$line";
				}
			}
		}
	}

}