nquote string = case string of
  '\"':xs -> impl xs ""
  other   -> impl string ""
  where impl ('\"':[]) acc = acc
        impl (x:xs) acc = impl xs (acc++[x])

unquote string = case string of
  '\"':xs -> impl xs ""
  other   -> impl string ""
  where impl ('\"':[]) acc = acc
        impl (x:xs) acc = impl xs (acc++[x])
unquote string = case string of
  '\"':xs -> impl xs ""
  other   -> impl string ""
  where impl ('\"':[]) acc = acc
        impl (x:xs) acc = impl xs (acc++[x])