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

$dir="/~jj/musica";
my @l=(</home/jj/svn/music/musica/zeca*.lyr>);

if($ag){ lyra::mksongbook({ color=>1, pageformat => "agenda", column => 1},@l);}
else   { lyra::mksongbook({ color=>1, pageformat => "a4", column => 2},@l); }