#!/usr/bin/perl
use 5.10.0;
map{$s+=$_,$r+=$_**2}(<>..<>);say$s**2-$r