perl -MStorable -ne 's/(.)/\{$1\}/g;eval­("\$x$_\{­EOS}=0");END{sto­re(\%x,out­put)}'
#              (Perl not sed)^       prettier^^^  bug^^   ^^^^was quite wasteful