RosettaCodeData/Task/Binary-strings/PicoLisp/binary-strings-4.l

: (pack (mapcar char (32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47)))
-> " !\"#$%&'()*+,-./"