#!perl -nl
$$_=chop}sub f{-7+vec"@_",$$%6,8}{//,print map${"$_ $' "}||'-',f..f""for(f"")..f"&"