print!<>+grep$p=$p&&$p-$_||$_,glob<>