#!/usr/bin/perl -na

BEGIN { use Getopt::Std; getopts("e"); $shift = shift || 0 }
@n = split /\t/, $_;
@s = splice @n, 0, $shift;
if ($opt_e) { print join "\t", @s; print "\t"; }
$tot = 0; for (@n) { $tot += $_ }
print "$tot\n";