#!/usr/local/bin/perl -w
#  kfn2cnf < wff.kfn > wff.cnf
# where kfn is like kf, but missing header

@Wfff = ();
for (<>){
    if (/[^\s\-\d]/) { last; }
    if (/[\d]/) { push(@Wfff, $_); }
}

$Numclause = $#Wfff + 1;
$Numvar = 0;
foreach $Line (@Wfff) {
    @Cl = split(' ',$Line);
    shift @Cl;
    foreach $Lit (@Cl) {
	if ($Lit < 0) {$Lit = - $Lit; }
	if ($Lit > $Numvar) { $Numvar = $Lit; }
    }
}
printf "p cnf %d %d\n", $Numvar, $Numclause;
foreach $Line (@Wfff) {
    @Cl = split(' ',$Line);
    shift @Cl;
    foreach $Lit (@Cl) {
	print $Lit, " ";
    }
    print "0\n";
}
