#!/usr/bin/perl -w

use v5.16;
use strict;

my ($clen, $slen) = (0, 0);
while (<>) {
	chomp;
	$clen += length;
	$slen += length eval $_;
}

say $clen - $slen;
