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

rle: {,/($-':i,#x),'x@i:&1,~=':x}