#!/usr/bin/perl
# Version 1.9 (c) 2001
#              - Vincent Houwert (vincent@trueserver.nl)
#              - Marcel Leicher (marcel@silverpoint.nl)
#   LAST UPDATE: 10/06/2001

@Read = (<STDIN>);

$een = $Read['0']+$Read['1'];
# $eerst = $een/1024; # Maak er GB van
$eerst = $een*1024; # Maak er KB van
$eerst = $eerst*1024; # Maak er Bytes van
$eerst = $eerst*8;
print "20$ARGV[0]\t$eerst\n";