#!/usr/bin/perl
s;^;r;s;s;$;e;s;s;^;g;s;s;$;p;s;s;g;j;s;s;r;a;s;s;e;p;s;s;p$;h;m;print;