showNacc :: Nacc -> String
showNacc nacc =
  let Nacc _ acc _ _ desc = nacc in
  (showAcc acc) ++ " " ++ desc
showNacc :: Nacc -> String
showNacc nacc =
  let Nacc _ acc _ _ desc = nacc in
  (showAcc acc) ++ " " ++ desc
showNacc nacc =
  let Nacc _ acc _ _ desc = nacc in
  (showAcc acc) ++ " " ++ desc