Are you a Genius or not?
The following was implemented in Maple by Marcus Davidsson (2011) davidsson_marcus@hotmail.com
Enjoy !!