read c p g while read -n1 a do((${a,}?--${a,},r+=3:++$a)) done $[r+={c