.#,*ü! 1 ( sort_fun+*ü! 3 ( end_line ! n % index ! i # beg $ begc $ endc $ keys+ýü! 5! 0þ , check_regionü! 6 + what_column°$ endcü! 7 ) what_line°( end_lineü! 8 * pop_mark_1ü! 9 ) what_line°# begü" 11 ( end_line # beg:°! n·! nü" 12 + what_column°$ begcü
" 14 $ endc $ begc=.ü" 16 $ endc $ begc°$ endc°$ begc/cýü" 19 ! n + String_Type!°$ keysýü" 25 # begþ ) goto_line.ü" 26! 0°! i/. ! i ! n=/.·! i/.ýü" 28 $ begcþ + goto_columnü" 29 - push_mark_eolü" 30 + what_column $ endc?.ý $ endcþ + goto_column/cü" 31 ) 
bufsubstrý ! i $ keys ü" 32 ) go_down_1/gýü" 35 $ keys ( sort_fun , __qualifiersþ * array_sort°% indexýü" 40 ( end_lineþ ) goto_lineü" 41 & down_1.ü" 43 # eolü" 44 ' newline/bü" 47 ) push_spot.ü" 48! 0°! i/. ! i ! n=/.·! i/.ýýü" 50 ! i % index! # beg9þ
 ) goto_lineü" 51 . line_as_stringü" 52 ( pop_spotü" 53 # bolýþ & insert ' newlineü" 54 ) push_spot/gü" 56 ( pop_spotýü" 57 # begþ ) goto_lineü" 58 # bol ) push_markýü" 59 ( end_line! 19þ ) goto_lineü" 60 # bol * del_regionü! 1y3 sort_using_function,*ü
" 65 # dir+ / prefix_argument $ NULLA.! 1/." -1/d°# dirýü" 66}& strcmp # dir# dir# dir! 1! 1Žþ 3 sort_using_functionü" 63y$ sort