プログラミングわからない

私はこのくらいプログラミングがわからない。

(loop :while (not (=  0 (random 1000)))
      :do (print 'プログラミングわからない)

外れるたびに１回「プログラミングわからない」と吐き出さないとならない、当たる確率が1000分の1のくじ引きを当たるまでやり続けなければならないのだが、私はそのくらいプログラミングがわからない気持ちです。