/**
checkmotion(Frames,Word,Object).
checkmotion([[[0,1],[0.7,0.7],[0,-1]],
	[[1,1],[1.7,0.7],[1,-1]],
	[[2,1],[2.7,0.7],[2,-1]]],apple,Motion).
Motion = person_with_apple_walking_forwards 
**/
	
checkmotion([[[0,1],[0.7,0.7],[0,-1]],[[1,1],[1.7,0.7],[1,-1]],
        [[2,1],[2.7,0.7],[2,-1]]],apple,person_with_apple_walking_forwards).