# Bubblesort by DeathPing

(i d+1 
  (i>b-1 b? 0>x 
    (b>c 0>b? x?) 
    (x? d+0 d>f)
  ) 
  (c>i)  
)
0>d? (f>o)