user defined pdb functions

Question

How to define the pdb equivalent to this gdb snippet:

define go
    set $i = 1000
    while $i
        step
        set $i = $i - 1