($N,$M,$K)=glob<>; @_=<>; @d=sort{1}glob pop@_; / .* /,push(@{$`},[$&+0,$']),push(@{$&+0},[$`,$'])for@_; sub f{ my($i,$j)=@_; $j==$K&&return 1; @$_[1]==$d[$j]&&f(@$_[0],$j+1)&&return 1for@$i; 0 } @g=grep{f$_,0}1..$N; print@g."\n@g"