@@[_s]
@@@@d?%%Swap?%%Empty?%%Makecontain?%%Store?%%Empty?%%Makecontain?
@@%%Store?@@?@@?@@@@[_s]?@@d?%%Obtain?@@@@["]?@@?%%Empty?
%%Concatenate
@@%%Makecontain?%%Ifdisjoint?%%Obtain?@@?%%Concatenateall?
%%Concatenate @@%%Evaluatereplace
%%Concatenate %%Empty %%Makecontain
%%Store @@ @@ @@ @@ @@[_x] @@ @@ @@["]
@@@@@@[#]?%%Inputchar?%%Empty?%%Makecontain?@@@@[$]?@@[]?%%Obtain?
@@%%Ifdisjoint?%%Obtain?@@?%%Concatenateall?%%Evaluatereplace
%%Concatenate @@["] @@[#]
@@%%Inputchar?@@[!]?%%Obtain?@@?%%Concatenateall?%%Evaluatereplace
@@[#] @@[$]
@@@@@@[!]?%%Inputchar?%%Empty?%%Makecontain?@@@@[%]?@@[]?%%Obtain?
@@%%Ifdisjoint?%%Obtain?@@?%%Concatenateall?%%Evaluatereplace
%%Concatenate @@[$] @@[!]
@@@@0?%%Printtoconsole @@[!] @@[%]
@@@@1?%%Printtoconsole @@[%] @@[] @@1
@@[] @@ @@ @@[_s] %%Obtain @@
%%Concatenateall %%Evaluate
