define(f,`ifelse($#,1,,eval($1*~$1*~(2*$1)/6)
`f(shift($@))')')f(translit(include(/dev/fd/0),`
',`,')0)