$/=words;say @$/.min*2-($0==$1)