print $day."\-".($month+1)."-".($year+1900)."\n"; # less expensive