25 lines
284 B
Plaintext
25 lines
284 B
Plaintext
main:
|
|
declare char
|
|
declare ish
|
|
declare iso
|
|
declare notish
|
|
declare notiso
|
|
skip
|
|
calc char peek
|
|
calc ish eq char "e"
|
|
calc notish not ish
|
|
if notish
|
|
return
|
|
/
|
|
skip
|
|
skip
|
|
skip
|
|
calc char peek
|
|
calc iso eq char "o"
|
|
calc notiso not iso
|
|
if notish
|
|
return
|
|
/
|
|
emit "Success"
|
|
/
|