f=:*./@(1&p:)@([,2&+)
echo&.>(<@;)"1":each({.;',';}.)"1([,.(2&+))(f"0#])1+i.2e3