$a||open(F, $0);
print/^=/?chr(ord('A')+($a++==5?0:($b=tr/ //c)==5?-33:$b)):()while<F>;