#!/usr/bin/perl
use strict;
use List
::Util qw(reduce min
);
sub preamble {
}
my $res = preamble(<<COMMENT);
/** JavaDoc Comment
* Makes things go
*/
COMMENT
print $res eq "\t" ? "true" : "false", "\n";
$res = preamble(<<QUOTE);
> Hello
> There
QUOTE
print $res eq "> " ? "true" : "false", "\n";
IyEvdXNyL2Jpbi9wZXJsCnVzZSBzdHJpY3Q7CnVzZSBMaXN0OjpVdGlsIHF3KHJlZHVjZSBtaW4pOwoKc3ViIHByZWFtYmxlIHsKCXJldHVybiByZWR1Y2UgewoJICAgIG15ICRsZW4gPSBtaW4obGVuZ3RoICRhLCBsZW5ndGggJGIpOwoJICAgIC0tJGxlbiB3aGlsZSBzdWJzdHIoJGEsIDAsICRsZW4pIG5lIHN1YnN0cigkYiwgMCwgJGxlbik7CgkgICAgcmV0dXJuIHN1YnN0cigkYSwgMCwgJGxlbik7Cgl9IHNwbGl0IC9cbi8sIGpvaW4gJycsIEBfOwp9CgpteSAkcmVzID0gcHJlYW1ibGUoPDxDT01NRU5UKTsKCS8qKiBKYXZhRG9jIENvbW1lbnQKCSAqIE1ha2VzIHRoaW5ncyBnbwoJICovCkNPTU1FTlQKCnByaW50ICRyZXMgZXEgIlx0IiA/ICJ0cnVlIiA6ICJmYWxzZSIsICJcbiI7CgokcmVzID0gcHJlYW1ibGUoPDxRVU9URSk7Cj4gSGVsbG8KPiBUaGVyZQpRVU9URQoKcHJpbnQgJHJlcyBlcSAiPiAiID8gInRydWUiIDogImZhbHNlIiwgIlxuIjsK