$_=<>;chop;
s/\B/{,+}/g;
@a=map eval,glob;
print 0+grep/^\d+: \d+$/,`factor @a`