#!/usr/bin/env perl

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

my $data=$common->stdin();
my $json=$common->compact( $data );
print "$json";