sub a{$a{local$%=pop}//=$%?a($%/5)+a($%/3):1}print a<>