in=:".&.>0{"1[_2]\;:(1!:1)3
f=: <.@(0.5&+)@(%&4)@((+/@:*:)%{.)
echo&.> f&.>in