Pensieve header: Many graphs for Assaf.

n=7;
Plot[
Times@@@(x-Subsets[Range[6],{3}]),
{x,-1,n+1}
]