bsortSx'Consxxsbsortx'bubblexxslenConsxxs+S0lenxsbubblex'Consxxsbubble[Ite][False][Ite]<x'xx'ConsxxslenNil0bubblexNilConsxNilbsort0xsxsbubblesortxsbsortlenxsxs+xS0Sx+S0ySy<SxSy<xy<0SyTrue<x0Falsebubble[Ite][False][Ite]Falsex'ConsxxsConsxbubblex'xsbubble[Ite][False][Ite]Truex'ConsxxsConsx'bubblexxsbubble[Ite][False][Ite]3bubble2True0Nil0+2S1<2bsort2Cons200bubblesort1len1False0INNERMOST