#!/usr/local/bin/perl -w
#  f2kf < wff.f > wff.kf
#  option -n = don't include #vars #clauses header

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

$Numclause = $#Wfff + 1;
$Numvar = 0;
foreach $Line (@Wfff) {
    @Cl = split(' ',$Line);
    foreach $Lit (@Cl) {
	if ($Lit < 0) {$Lit = - $Lit; }
	if ($Lit > $Numvar) { $Numvar = $Lit; }
    }
}
if ($#ARGV != 0 || $ARGV[0] ne "-n"){
    printf "%d %d\n", $Numvar, $Numclause;
}
foreach $Line (@Wfff) {
    @Cl = split(' ',$Line);
    print 1 + $#Cl;
    foreach $Lit (@Cl) {
	print " ", $Lit;
    }
    print "\n";
}
