Basis of the intersection of two subspaces : ibasis

ibasis takes as argument two lists of vectors generating two subspaces of $\mathbb {R}$ⁿ.
ibasis returns a list of vectors that is a basis of the intersection of these two subspaces.
Input :

ibasis([[1,2]],[[2,4]])

Output :

[[1,2]]