#!/usr/bin/perl

use warnings;
use strict;

# v
# e
# r
# t
# i
# c
# a
# l
# i
# z
# e
#
# a
#
# s
# t
# r
# i
# n
# g

my $input = <STDIN>;
foreach my $l (split //, $input) { print "$l\n"; }