Challenge:reimplement UNIX cat

Most elegant solution wins
reference bloated cats: https://gist.github.com/pete/665971

>>31 LISP or Scheme interpreter
Why would i need one?
//welcometoc2.c: requires latest tuple.h for eval https://gist.github.com/FrozenVoid/363b9098196d3173ab0c
/*
splits (unwrapped tuple) expresions into semicolon groups returning last one: ({unwrap(a1);unwrap(a2);unwrap(a3);})
#define eval(tuples...) sm opapply(;,sdt,sdt(tuples)) em
*/
#include "void.h"
//https://gist.github.com/FrozenVoid/87e6ad6212ac9ce496e0
STDSTART

#define tuplex1 (defvars((c1p,species,alloca(256)),(c1,yes)))

#define surrender "greetings! We are the primitive C-aveman"," from the planet #define.\n","Open your parens and"," surrender ",species," REPLs.\n"

#define tuplex2 (p("What is your species?",(scan(species),"\n"),species,surrender,"Would ",species, " like to know more?[y/n]"))

#define yescond (scan(yes),yes=='y'||yes=='Y')
#define resistance ((p("Resistance is ", (range(70,29)),"% futile.\n")))
#define expressiveness " expressiveness will be added to our own.\n"
#define culture " culture will adapt to service us.\n"

#define tuplex3 (iftcond((yescond,(p(yes,"..es? ",species,("techno""magical"),expressiveness,species,culture)),resistance)))

p(eval(tuplex1,tuplex2,tuplex3,species)," has been assimilated");
STDEND