#!/usr/bin/env perl

use strict;

use JSON;
use Loctools::Markdown::Builder::MD;

binmode(STDIN, ':utf8');
binmode(STDOUT, ':utf8');

my $text = join('', <STDIN>);
my $tree = from_json($text);

my $builder = Loctools::Markdown::Builder::MD->new;
my $out = $builder->build($tree);

print $out;