(let1 x #0=(read)(format #t #`"2~s+,(if(eq? x'C2H2)'5~s->4~s+2H2O'~s->2~s)"x #0# #0#))