#!/usr/bin/perl6
print("123345556".comb(/(.) $0*/));
print("\n");
print("11223311".comb(/(.) $0*/));