#!/usr/bin/perl

while (<>) {
	s/REAL\s*\(/Real\(/g;
	next unless /^\s+REAL/i;
	next unless /REAL\s*\*/i;
	s/REAL/ReaL/;
} continue {
	print;
}

exit 0;