print map $complement{$_}, reverse unpack '(a)*', $chain;