-[A,B,C|T]:-((A=35,(B=A;C=A);A=32,A=B,B=C),put(32);C<32;put(#)),!,-[B,C|T].
m:-read_file_to_codes('/dev/fd/0',S,[]),append([32,32|S],[32,32],U),-U.