RosettaCodeData/Task/Run-length-encoding/K/run-length-encoding-2.k

rld: {d:"0123456789"; ,/(.(d," ")@d?/:x)#'x _dvl d}