#!/usr/bin/perl
# your code goes here

sub f
{
    my $n = $_[0];
    if(!$n)
    {
    	return 1;
    }
    foreach $o(40,20,9,10,6,4)
    {
        if($n>=$o&&f($n-$o))
        {
            print "$o ";
            return 1;
        }
    }
    return 0;
}


@list = (1, 3, 5, 4, 6, 9, 10, 20, 40, 199, 400, 36, 43);

foreach $n (@list) {
	print $n;
	print " : ";
	if(!f($n)) {
		print ":(\n";
	} else {
		print "\n";
	}
}