#!/usr/bin/perl
# your code goes here
sub f
{
my $n = $_[0];
if(!$n)
{
}
foreach $o(40,20,9,10,6,4)
{
if($n>=$o&&f($n-$o))
{
}
}
}
@list = (1, 3, 5, 4, 6, 9, 10, 20, 40, 199, 400, 36, 43);
foreach $n (@list) {
if(!f($n)) {
} else {
}
}
IyEvdXNyL2Jpbi9wZXJsCiMgeW91ciBjb2RlIGdvZXMgaGVyZQoKc3ViIGYKewogICAgbXkgJG4gPSAkX1swXTsKICAgIGlmKCEkbikKICAgIHsKICAgIAlyZXR1cm4gMTsKICAgIH0KICAgIGZvcmVhY2ggJG8oNDAsMjAsOSwxMCw2LDQpCiAgICB7CiAgICAgICAgaWYoJG4+PSRvJiZmKCRuLSRvKSkKICAgICAgICB7CiAgICAgICAgICAgIHByaW50ICIkbyAiOwogICAgICAgICAgICByZXR1cm4gMTsKICAgICAgICB9CiAgICB9CiAgICByZXR1cm4gMDsKfQoKCkBsaXN0ID0gKDEsIDMsIDUsIDQsIDYsIDksIDEwLCAyMCwgNDAsIDE5OSwgNDAwLCAzNiwgNDMpOwoKZm9yZWFjaCAkbiAoQGxpc3QpIHsKCXByaW50ICRuOwoJcHJpbnQgIiA6ICI7CglpZighZigkbikpIHsKCQlwcmludCAiOihcbiI7Cgl9IGVsc2UgewoJCXByaW50ICJcbiI7Cgl9Cn0K