you coudl use ``blasOrder <- return $ encodeNiceOrder ornta``