#!/usr/bin/perl use strict; use Math::BigFloat; Math::BigFloat->accuracy(30); my $N = <>; my $sum = 0; for(1..$N){ $sum += Math::BigFloat->new(scalar <>); } print $sum->bfround(-10)->bstr(),"\n";