Haskell, 126 bytes
main=readLn>>=putStr.([s++show s,reverse$s++show s]!!)where s="main=readLn>>=putStr.([s++show s,reverse$s++show s]!!)where s=" Expects 0 or 1 as input.
nimi
- 36k
- 4
- 35
- 100
main=readLn>>=putStr.([s++show s,reverse$s++show s]!!)where s="main=readLn>>=putStr.([s++show s,reverse$s++show s]!!)where s=" Expects 0 or 1 as input.