#!/usr/bin/env perl

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

my $coerce=shift(@ARGV);
my $data=common->stdin();
if($coerce eq "true") {
  $data=~s/\s+$//;
  $data="\"$data\"";
}
$data=common->convert($data);
my $json=common->stringify( $data );
print "$json";