#!/usr/bin/perl
  
  use strict;
  use warnings;
  
  
  while(<STDIN>){
  	if(/\b\d{2}\/\d{2}\/(\d{2}|\d{4})\b/){
  		$_ =~ s/\b(\d{2})\/(\d{2})\/(\d{2}|\d{4})\b/convertDate($1,$2,$3)/ge;
  	}
  	elsif(/\b\d{2}\/\d{2}\b/){
  		$_ =~ s/\b(\d{2})\/(\d{2})\b/convertDate($1,$2)/ge
  	}
  	print $_;
  }
  
  sub convertDate
  {
  	my ($day, $month, $year) = @_;
  	
  	$day =~ s/01/premier/g;
  
  	$month =~ s/01/janvier/g;
  	$month =~ s/02/fe1vrier/g;
  	$month =~ s/03/mars/g;
  	$month =~ s/04/avril/g;
  	$month =~ s/05/mai/g;
  	$month =~ s/06/juin/g;
  	$month =~ s/07/juillet/g;
  	$month =~ s/08/aou3t/g;
  	$month =~ s/09/septembre/g;
  	$month =~ s/10/octobre/g;
  	$month =~ s/11/novembre/g;
  	$month =~ s/12/de1cembre/;
  
  	if(!$year){
  		$year = "";
  	}
  	elsif(length($year) == 2){
  		if($year =~ /((0|1)\d)/){
  			$year =~ s/((0|1)\d)/20$1/g;
  		}
  		else{
  			$year =~ s/(\d\d)/19$1/g;
  		}	
  	}
  	
  	return " $day $month $year ";
  }