asCode | r | r <- '('. self do: [:element | r<- r+ (element quo: 16) + ':' + (element rem: 16) + ' ']. ^ r + ')'