An algorithm for constructing two disjoint Hadamard designs