#!/usr/bin/perl
use pt::pln;

while(<>){
  print accent($_);
}
