main=interact$concatMap(\a->[a,a])