Create Fork.hs