secret := 'abcdef'.
zeros := '000'.
zerosSize := zeros  size.
count := 0.
[    
    [    candidate := secret , count printString.
        ((MD5 hashMessage: candidate) hex first: zerosSize) = zeros
    ] whileFalse: 
        [    (count \\ 10000) = 0 ifTrue: [ Transcript crShow: count ].
            count := count + 1.
        ].
    Transcript crShow: 'ANSWER = ' , count printString.
] forkAt: 35 named: 'Mining'

but I like that there is no transcipt in the code 

so my question is how can I change this part(
 Transcript crShow: 'ANSWER = ' , count printString.
) 

so it still returns the count.


I tried  ^count printstring but that is not allowed 


Regards, 


Roelof