sub f{my$n="@_"|0;$m{$n}//=!$n||f($n/3)+f($n/5)}print f<>