Partially working parser with attoparsec