如何缩短`import qualified`？

Question

我想按名称，合格和不合格

对我的导入进行排序

import           A
import qualified B
import           C
import qualified D

但是代码中存在很大差距，而且行很长，所以我想缩短它

{-# LANGUAGE CPP #-}
#define importq import qualified

import  A
importq B
import  C
importq D

看起来很棒，但现在我从CPP得到错误

error: invalid preprocessing directive #!
#!/usr/bin/env runhaskell
^
phase `C pre-processor' failed (exitcode = 1)

如果我想在shebang的帮助下运行我的程序。 CPP与shebangs结盟。

如何处理这个问题？是否有另一个简单的宏系统允许制作别名importq = import qualified？或者还有另一种缩短import qualified的方法吗？