get;$/=+<<words;put min(map {[R-] $/[^2+$_]},^+^-$/);put $/.max-$0