Exploratory DSL for rendering a representing a Mobius graph

Mobius.kt

mobius("Login") {

	state("Default") {
		events {
			"InputChanged" leadsTo "Default"
			"SubmitClicked" leadsTo "ValidateInput"
		}
	}

	transient("ValidateInput") {
		effects {
			effect("ValidateInput") {
				events {
					"ValidationSucceeded" leadsTo "LoggingIn"
					"ValidationFailed" leadsTo "InvalidInput"
				}
			}
		}
	}

	state("InvalidInput") {
		events {
			"InputChanged" leadsTo "Default"
		}
	}

	state("LoggingIn") {
		effects {
			effect("LogIn") {
				events {
					"RequestFailedWithNetworkError" leadsTo "RequestFailed"
					"LoginSucceeded" leadsTo "SaveUser"
					"IncorrectCredentialsEntered" leadsTo "IncorrectCredentials"
				}
			}
		}
	}

	state("RequestFailed") {
		events {
			"Retry" leadsTo "LoggingIn"
		}
	}

	transient("SaveUser") {
		effects {
			effect("SaveUser") {
				events {
					"UserSaved" leadsTo "GoToHomeScreen"
				}
			}
		}
	}

	transient("GoToHomeScreen") {
		effects {
			effect("GoToHomeScreen")
		}
	}

	state("IncorrectCredentials") {
		events {
			"InputChanged" leadsTo "Default"
		}
	}
}