no strict;($,$l,$h,@c)=+<<slurp.words;say [+] @c.combinations.map:{([-] ($l-1,$h) >>div>>[lcm] $_)*$_*(-1)**$_}