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