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