#!/usr/bin/env perl
BEGIN { $|=1; }
use warnings;
use utf8;

my ($bindir) = $0 =~ /^(.*)\/.*/;

eval(require "$bindir/addbreak.subs");
if ($@) {
    print "Couldn't load addbreak.subs!\n";
    return -1;
}

while(<STDIN>) {
    print AddBreak($_) . "\n";
}
