sub f{8*$*(local$=$+"@_")>$'?0:f($-"@_")+f(@_)+$%2}print f<>=~//