while( <> ){
  split /,/;
  print pack 'A10'x (scalar @_), @_;
}