#!/usr/bin/perl
use strict;
use warnings;

use FindBin qw( $RealBin );
use lib $RealBin;
use Journalizer;

use IO::All;

my $io =
      ( not -t STDIN ) ? io->stdin
    : ( @ARGV == 1 ) ? io( $ARGV[0] )
    : die "usage: $0 { filename | <input }\n";

my @lines = $io->slurp;
shift @lines;

print @lines
    ? Journalizer::Formatter::format( join '', @lines )
    : die "No body specified\n";