In the package Pandoc a function called `Get_Type()` is defined,
which takes a JSON block and returns the pandoc assigned type.
The main code of the `Traverse_Block` function is changed to
use an enumeration of Pandoc types instead of comparing string.
