#!/usr/bin/perl --

%griph=('c' => @c_griph,
		'b' => @b_griph,
		'f' => @f_griph,
		'o' => @o_griph,
		'r' => @r_griph,
		'm' => @m_griph,
		'y' => @y_griph,
		'g' => @g_griph,
		'p' => @p_griph,
		'w' => @w_griph);

print "c = ",$griph{'c'},"\n";
print "b = ",$griph{'b'},"\n";
print "f = ",$griph{'f'},"\n";
print "o = ",$griph{'o'},"\n";
print "r = ",$griph{'r'},"\n";
print "m = ",$griph{'m'},"\n";
print "y = ",$griph{'y'},"\n";
print "g = ",$griph{'g'},"\n";
print "p = ",$griph{'p'},"\n";
print "w = ",$griph{'w'},"\n";

##</code><code>##

c = b
b =
f = o
o =
r = m
m =
y = g
g =
p = w
w =