Yet another one. Slightly similar to the previous one, but gives a graphical JAPH.

undef $/;__(<DATA>,i__);sub __ {
@__=split "\n",$_[i__];for $_x (
i__+1..27) {for(split(" ", $__[$_
[i__+1]])){ $__x="*" if $_x==int
$_}eval __c($__x ne "*"?" ":$__x
);undef $__x}eval __c(chr(i__+10)
);__($_[i__],$_[i__+1]+i__+1) if
($_[i__+1]<=7)}sub __c{ return ""
.(join "",map{"".chr($_).""}(112,
114,105,110,116))." '".$_[i__]."'"
}sub i__{eval join "",map{chr($_)}
(111,114,100)}#Mandrake
__DATA__
6 11 16 17 18 19 23 27
6 10 12 16 20 23 27
6 9 13 16 20 23 27
6 9 10 11 12 13 16 17 18 19 23 24 25 26 27
6 9 13 16 23 27
2 6 9 13 16 23 27
3 4 5 9 13 16 23 27
[download]

Thanks..