* graph_code/graph_code.ml: fix FP