use strict;
use warnings;
#/da4_data/play/api/doc2vecR.200.30.20.5.1550908281.eAp.trained.wv.vectors.npy
#/da4_data/play/api/doc2vecR.200.30.20.5.1618784533.eAp.trained

my (%na, %no);
open A, "zcat PtAPkgRAllA100.s|";
while (<A>){
  chop();
  my ($la, $p, $t, $a, @ms) = split (/;/);
  $na{$a}{$p}++;
  $no{$a}{$p}++ if $t <= 1550908281;
}
while (my ($al, $v) = each %no){
  my %nn = ();
  for my $i (keys %{$na{$al}}) { $nn{$i}++ if ! defined $v->{$i}; }
  my @nns = sort keys %nn;
  next if $#nns < 0;
  print "0;$al;" . (join ';', (sort keys %{$v})) . "\n";
  print "1;$al;" . (join ';', @nns) . "\n";
}