alt :: Acc -> [Nacc] -> Acc
alt acc naccs =
  altAcc
  where
    nacc = find (\n -> acc == (ncAcc n)) naccs
    altAcc = case nacc of
      Just n -> ncAlt n
      Nothing -> "Error: couldn't find alt nacc" -- FIXME do better than this
alt :: Acc -> [Nacc] -> Acc
alt acc naccs =
  altAcc
  where
    nacc = find (\n -> acc == (ncAcc n)) naccs
    altAcc = case nacc of
      Just n -> ncAlt n
      Nothing -> "Error: couldn't find alt nacc" -- FIXME do better than this
alt acc naccs =
  altAcc
  where
    nacc = find (\n -> acc == (ncAcc n)) naccs
    altAcc = case nacc of
      Just n -> ncAlt n
      Nothing -> "Error: couldn't find alt nacc" -- FIXME do better than this