Fragment of Oberon0 for https://ohmlang.github.io/editor/

oberon0_fragment.ohm

Oberon0 {
  Module = "MODULE" ident ";" "BEGIN" StatSeq "END" ident "."
  StatSeq = statement (";" statement)*
  statement = procedureCall?
  procedureCall = ident (actualParameters | "*")?
  actualParameters = "(" integer ("," integer)* ")"
  integer = digit+
  ident = letter alnum*
}


- Input:

MODULE B;

BEGIN
	WriteInt(5,0);
  WriteLn
END B.