#!/bin/rc
fn eq { echo !$1 $2 ';' $1 !$2 }
fn neigh {
	switch($1){
	case 1
		echo !$2^$1^$3 $4^`{echo $1+1|pc -n}^$5 ; echo !$4^$1^$5 $2^`{echo $1+1|pc -n}^$3
	case 5
		echo !$2^$1^$3 $4^`{echo $1-1|pc -n}^$5 ; echo !$4^$1^$5 $2^`{echo $1-1|pc -n}^$3
	case *
		echo !$2^$1^$3 $4^`{echo $1-1|pc -n}^$5 $4^`{echo $1+1|pc -n}^$5 ; echo !$4^$1^$5 $2^`{echo $1-1|pc -n}^$3 $2^`{echo $1+1|pc -n}^$3
	}
}
n=(1 2 3 4 5)
{for(i in $n){
	eq N$i^English C$i^Red
	eq N$i^Swede P$i^Dogs
	eq N$i^Dane B$i^Tea
	eq C$i^Green B$i^Coffee
	eq C`{echo $i-1|pc -n}^Green C$i^White
	eq Z$i^PallMall P$i^Birds
	eq C$i^Yellow Z$i^Dunhills
	eq Z$i^BlueMasters B$i^Beer
	neigh $i Z Blend P Cats
	neigh $i Z Dunhills P Horses
	neigh $i N Norwegian C Blue
	neigh $i Z Blend B Water
	eq N$i^German Z$i^Prince
	echo [1] N$i^English N$i^Swede N$i^German N$i^Dane N$i^Norwegian
	echo [1] C$i^White C$i^Green C$i^Red C$i^Blue C$i^Yellow
	echo [1] B$i^Beer B$i^Coffee B$i^Milk B$i^Tea B$i^Water
	echo [1] Z$i^Blend Z$i^BlueMasters Z$i^Dunhills Z$i^Prince Z$i^PallMall
	echo [1] P$i^Birds P$i^Cats P$i^Dogs P$i^Fish P$i^Horses
}
echo [1] N$n^English ';' [1] N$n^Swede ';' [1] N$n^German ';' [1] N$n^Dane ';' [1] N$n^Norwegian
echo [1] C$n^White ';' [1] C$n^Green ';' [1] C$n^Red ';' [1] C$n^Blue ';' [1] C$n^Yellow
echo [1] B$n^Beer ';' [1] B$n^Coffee ';' [1] B$n^Milk ';' [1] B$n^Tea ';' [1] B$n^Water
echo [1] Z$n^Blend ';' [1] Z$n^BlueMasters ';' [1] Z$n^Dunhills ';' [1] Z$n^Prince ';' [1] Z$n^PallMall
echo [1] P$n^Birds ';' [1] P$n^Cats ';' [1] P$n^Dogs ';' [1] P$n^Fish ';' [1] P$n^Horses
echo N1^Norwegian
echo B3^Milk
} | grep -v '[06]' | sat | sed -n 's/ 1$//p' | sort | mc -70 | sed 's/[A-Z][0-9]//g'