#        1         2         3         4
#23456789012345678901234567890123456789012345678
print$/x($:ne$_),++$c,") $_-",++$;xor$:=$_ for@_