ちょっと考えてみ！

?- flat([[a,[b,c],[d]],e,[f,[g,f]]]).
↓
[a,b,c,d,e,f]

と出力するflat.