use strict;
use warnings FATAL => 'all';

my $input = <STDIN>;

chomp $input;

if($input =~ #(\d+?)\/(\d+?)\/(\d+)#){
	for(my $i = $1;$i<=$1+1;$i++){
		for(my $j = $2;$j<=12;$j++){
			for(my $k = $3;$k<=31;$k++){
				if($j==4 || $j==6
					|| $j==9 || $j == 11){
						next if($k>30);
				}
				else if($k==2){
					next if(isLeap($i) && $k > 29);
					next elsif(!isLeap($i) && $k > 28);
				}

				if($i % ($j*$k)==0) {
					printf("%04d/%02d/%02d\n",$i,$j,$k);
					goto found;
				}
			}
		}
	}

}

found:;

sub isLeap {
	my $i = shift;
	return $i % 400 == 0 
			? 1 : $i % 100 == 0
			? 0 : $i % 4 == 0
			? 1 : 0;
}