#!/usr/bin/env perl

use strict;
use warnings;

use List::Util 'sum';

my @input = qw{-222 -221 -21 0 1 1 2 3 5 8 13 21 34 55 89 144};

print join(' ', map +(sum(split //, abs) % 2 ? $_ : ()), @input), "\n";