-- if expr then body else body
parse_if_stmt = do
  parse_if_part
  parse_cond_part
  parse_then_part
  parse_then_body
  parse_else_part
  parse_else_body