#!/usr/bin/env perl
use strict;
use warnings;
use lib 'lib';

use Text::Xatena;

my $input = do { local $/; <ARGV> };
print Text::Xatena->new->format($input), "\n";

