A Fast Algorithm for Discovering Sparse Causal Graphs