#!/usr/bin/perl -w

require "weeknums.pl";

if ($#ARGV != 0) {
	print STDERR "Syntax error: need yyyyWww\n";
	exit 1;
}
($year,$week)=split /W/,$ARGV[0];

$time=getWeekStart($year,$week);
@tm=localtime($time);
$tm[4]++;
$tm[5]+=1900;
print "${year}W$week starts on $tm[3]/$tm[4]/$tm[5]\n";