use strict;
use warnings;
use File::Find;
my $dir = shift;
my $k   = shift || 0;
die "usage: $0 <DIR> [-k]\n"   unless -d $dir;

my $size;
find sub {
   next   if /\.svn$/;
   $size  += -s;
}, $dir;
$size = int($size/1024)."K"   if $k;
print "$size\n";