T1972.hs:12:3: warning: [-Wname-shadowing (in -Wall)]
    This binding for ‘name’ shadows the existing binding
      defined at T1972.hs:9:19

T1972.hs:14:3: warning: [-Wname-shadowing (in -Wall)]
    This binding for ‘mapAccumL’ shadows the existing bindings
      imported from ‘Data.List’ at T1972.hs:7:19-27
      (and originally defined in ‘Data.Traversable’)
      defined at T1972.hs:16:1

T1972.hs:20:10: warning: [-Wunused-local-binds (in -Wextra, -Wunused-binds)]
    Defined but not used: ‘c’