my code using opencog code from revision 4078