#!/usr/bin/perl -w
use strict;
sub _i($){int(($_[0])/2)}
my @p=([split //,"mcsio-p.w/:th!a+rv+P+aR!ila++'"],
[split //,"/o.cmcfgww/pt+ydyeeFGde+etuFamI"]);
my $l=$#{$p[0]}+$#{$p[1]}+1;
for my $i (0..$l){$_.=$i%2?$p[0][_i($i-1)]:$p[1][_i($i)];}
$_=~s/\+/ /g;
print $_=reverse $_;