#!/usr/bin/perl $_=join '',<>; @ints = m/(-?\d+)/g; map {$ints{$_}=1} @ints; $ints=@{[keys %ints]}; $sets=@{[m/(\n)/g]}; print ((2**$ints == $sets)? "good\n" : "bad\n");