0 (s:all-same-characters)
 1
 2 :result [ 'yes ] [ 'no ] choose s:put nl ;
 3 :check  [ over eq? ] a:filter s:length ;
 4 :s:all-same-characters? &s:length &s:first &check tri nip eq? ;
 5
 6 'aaabbbccc s:all-same-characters? result
 7 'aaa s:all-same-characters? result
 8 'Aaaa s:all-same-characters? result
 9 'a_aa s:all-same-characters? result
10 'A s:all-same-characters? result
11 '____ s:all-same-characters? result
12
13
14
15