#!/usr/bin/perl -w
use strict;

my $zahl = `echo "2 ^ 1000" | bc`;
$zahl =~ s|\\||g;
$zahl =~ s|\n||g;
my @array = split(//, $zahl);
my $sum = 0;
foreach (@array){
	$sum += $_;
}
print $sum, "\n";