get;say sum map (++$_-*).abs,sort +<<words get