このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1323566370/224
#  全角文字(2バイト文字?)だけを検索するには 
#  なんと書くんでしょうか? 
# 
# 

'全角文字(2バイト文字?)だけを検索する'(_文字列,_前文字列,_適合文字,_後文字列) :-
        sub_atom(_文字列,_,1,_,前文字列,_適合文字列,_後文字列,_,_,_),
        char_code(_適合文字列,_文字コード),
        _文字コード > 255.