#!/usr/bin/env perl

use File::Basename;
my $dir = dirname(__FILE__);
require "$dir"."/lib/common.pl";

my $document=common->parse();
if(defined($document->{'rows'})) {
  my @rows=reverse(@{$document->{'rows'}});
  #print \@rows;
  $document->{'rows'}=\@rows;
}
my $json=common->stringify( $document );
print "$json";