-- -*- M2-comint -*- hash: 3517250904961081417

i1 : W = QQ[x, D, WeylAlgebra=>{x=>D}]

o1 = W

o1 : PolynomialRing, 1 differential variable(s)

i2 : M = W^1/ideal(D-1)

o2 = cokernel | D-1 |

                            1
o2 : W-module, quotient of W

i3 : N = W^1/ideal((D-1)^2)

o3 = cokernel | D2-2D+1 |

                            1
o3 : W-module, quotient of W

i4 : DHom(M,N)

o4 = {| -xD+x+1 |, | -D+1 |}

o4 : List

i5 : 
