(map prn:car(pair:lines:allchars:stdin))