use strict;

@_=('a'..'z');$_=join(/,/,@_);
@_=qw/7 20 18 14 5 19/;for $.(@_)
{print substr($_, $., 1), "\n";}