#!/usr/bin/env perl

use strict;

use JSON;
use Loctools::Markdown::Parser;

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

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

my $parser = Loctools::Markdown::Parser->new;
my $tree = $parser->parse($text);

print JSON->new->indent(1)->space_after(1)->canonical->encode($tree);
