eval'S=%d00+%d*25+%d'%[*$<];p S/100%10+S/25%4+S%25