練習問題 4.3.6

関数 
filter
は 
concat
と 
map

を使って以下のように定義できる．

filter p =  concat . map box
	    where  x = ...
box
を定義せよ． 





filter p = concat . map box
           where  box x = [ x | p x ]