#!/usr/bin/perl -s
use lib ('..');
use lyra;

our ($ag,$b5);
my $opt= {outputfile => "_ex7.tex", pageformat => "agenda", column => 1};
my $list=shift;

($opt->{tit}, @fs) = (map {chomp; $_} `cat $list`);

if   ($ag){ lyra::mksongbook({%$opt, pageformat => "agenda", column => 1},@fs);}
elsif($b5){ lyra::mksongbook({%$opt, pageformat => "b5", column => 2},@fs);}
else      { lyra::mksongbook({%$opt, pageformat => "a4", abc=>2, column => 2},@fs); }


if   ($ag){ lyra::make("_ex7.agpdf");}
elsif($b5){ lyra::make("_ex7.a5pdf");}
else      { lyra::make("_ex7.pdf");}

__END__