s/ //,$a=@a[/\d+/g]="F $_ "for<>;/ (.) (.+) /,$$1-$$2and$$1=$$2=y/F/T/,do$0for@a;@a=!print@a