#!/usr/bin/perl
sub E{$%%2?$---:$;;++$%.($--$%)};$-=1E1,$_=(join'',E,reverse(E,E))/1E2,print;