このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1301067486/231
#  <(.*)>を取得したいのですが 
#  <aiueo> 
#  <aiueo<kakikukeko> 
#  これはaiueo kakikukekoの2つを取得したいのですが 
#  このままだと 
#  aiueoとaiueo<kakikukekoが取得されてしまいます 
#  どうしたらいいでしょうか? 
# 
# 

'<(.*)>を取得したいのですが <aiueo> <aiueo<kakikukeko> これはaiueo kakikukekoの2つを取得したい'(_文字列,_前文字列,_適合文字列,_後文字列) :-
        sub_atom(_文字列,_,_,_,_前文字列,_適合文字列,_後文字列,L1,[<|R2],[A|R3]),
        ( A == '<'; A == '>'),
        member(B,R2),
        \+(B == '<'),
        \+(B == '>').