#!/usr/bin/env perl

# <URL:https://strategywiki.org/wiki/The_7th_Guest/Walkthrough>

use 5.010;
use strict;
use warnings;

use Data::Dumper;

sub main {

  my @c = (
    [ 0 ],
    [ 1,2,3,4,5,7 ],
    [ 2,4,6,7,9 ],
    [ 1,2,3,5,6,9 ],
    [ 2,3,4,8,9 ],
    [ 2,4,5,6,8 ],
    [ 1,2,6,7,8 ],
    [ 1,4,5,7,8,9 ],
    [ 1,3,4,6,8 ],
    [ 3,5,6,7,8,9 ],
  );
  my @out;
  my %t;

  LOOP: foreach my $arg (@ARGV) {
    next LOOP unless (($arg > 0) and ($arg < 10));
    foreach my $aref ($c[$arg]) {
      foreach my $coffin (@{$aref}) {
        $t{$coffin} = 0 if (!defined( $t{$coffin} ));
        $t{$coffin}++;
      }
    }
  }
  foreach my $key (sort keys %t) {
    push(@out, $key) if ($t{$key} % 2);
  }
  say join(' ', @out);

  return 0;
}
exit(main());
die('NOT_REACHED');