1/1: Building RLE (RLE.idr)
RLE> uncompress Empty = Val []
uncompress (Run n x rest) = let Val ys = uncompress rest in Val (rep n x ++ ys)
RLE> Bye for now!