; primes in GT.M-Perl (GT.M side)
        Set limit=+$ZCMDLINE Set:limit=0 limit=1000
        Kill ^primes
        For i=2:1:limit Set ^primes(i)=1
        Set i=""
        For  Set i=$Order(^primes(i)) Quit:i=""  For j=i*i:i:limit K ^primes(j)
        Set count=0,o=""
        For  S o=$Order(^primes(o)) Quit:o=""  Set count=count+1
        K ^primes
        W count_" Primes up to "_limit,!
        Q