RosettaCodeData/Task/Run-length-encoding/FALSE/run-length-encoding-1.false

1^[^$~][$@$@=$[%%\1+\$0~]?~[@.,1\$]?%]#%\.,  {encode}