Pensieve header: Utilities for ConciseFastKh.nb.

Kom /: Show[Kom[chains_, ds_]] :=MatrixForm[{ColumnForm /@ chains,MatrixForm /@ Append[ds,0]}];