#!/usr/bin/perl -w



while ($linha = <STDIN>) {

  chomp $linha;
  @listaCaracteres = split (// , $linha);

  foreach $caracter (@listaCaracteres) {
    print "$caracter\n" ;
  }
}