{
    my $sep = '';
    foreach my $line (@preamble)
    {
	$OUT .= "$sep$line";
	$sep = "\n";
    }
}
