@_=glob,s/^(.*)(4|7)(.* \1)(4|7)/$1$4$3$2/,/ /,print$_[$'>$`]for<>