while(<>){chomp;($ls,$rs)=split/==/,$_;@ls=sort(split(/,/,$ls));@rs=sort(split(/,/,$rs));print"@ls"eq"@rs"?"same\n":"different\n"}