.#,*�! 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