#!/usr/bin/perl

use strict;
use File::Slurp;

my $data = read_file shift;
my @data = unpack("i*", $data);
# print "Data: @data\n";
while(@data) {
  my @sequence = ();
  my @itemset = ();
  while(my $n = shift @data) {
    last if $n == -2;
    if($n == -1) {
      push @sequence, [ @itemset ];
      @itemset = ();
    } else {
      push @itemset, $n;
    }
  }
  print (scalar @sequence) . " ";
  foreach my $itemset (@sequence) {
    print " " . (scalar @$itemset);
    print " @$itemset";
  }
  print "\n";
}