open Core.Std

type t = string with sexp

let to_string = Fn.id

let string_to_lines s =
  match String.split ~on:'\n' s with
  | [] -> assert false
  | [""] -> [], false
  | lines ->
    let n = List.length lines in
    match List.nth lines (n - 1) with
    | None -> assert false
    | Some "" -> List.take lines (n - 1), true
    | Some _ -> lines, false

let of_string_unsafe = Fn.id

let lstrip = String.lstrip
let rstrip = String.rstrip
let strip = String.strip
let split = String.split
let for_all = String.for_all