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