#! /usr/local/bin/perl

$_ = join "", <>;
s/(.)(.)(.)(.)/$4$3$2$1/sg;
print;