s/^\s*MOVE\s+(\S+)\s+TO\s+(\S+)\s*\./$2 := $1;/ and next;
s/^\s*DISPLAY\s+'(.*)'\./PUT("$1")/ and next;
s/^\s*DISPLAY\s+(.*)\./PUT($1)/ and next;
++$discarded;