;; Whitespace
(defun fluent-blank-inline ()
  (parsec-many1-as-string (parsec-ch ?\s)))

(defun fluent-blank-block ()
  (parsec-many1-as-string (fluent-blank-line)))

(defun fluent-blank-line ()
  (parsec-optional (fluent-blank-inline))
  (parsec-eol-or-eof))

(parsec-with-input "


  
  


  last line
"
  (fluent-blank-block))
(parsec-error . "None of the parsers succeeds:
	Found \"l\" -> Expected \"`EOF'\"
	None of the parsers succeeds:
		Found \"l\" -> Expected \"
\"
		Found \"l\" -> Expected \"
		\"")