printExpr (EShiftL e1 e2) = parens $ sep [text "shift", printExpr e1, printExpr e2]
printExpr (EShiftL e1 e2) = parens $ sep [text "shift", printExpr e1, printExpr e2]
printExpr (EShiftL e1 e2) = parens $ sep [text "shift", printExpr e1, printExpr e2]