print $som->result, "\n";