Blsq + HELPreprocessor

# while\s+(.*)do(.*)od := {\2} {\1} w!
# \n :=
# \s{2,} :=

50
while 5 .> do
    ^^
    1 .-
od