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