program example1

    ! Typical usage should only require an explicit use of the fson module.
    ! The other modules will be used privatley by fson as required.  
    use fson

    ! declare a pointer variable.  Always use a pointer with fson_value.
    type(fson_value), pointer :: value

    ! parse the json file
    value => fson_parse("test1.json")

    ! print the parsed data to the console
    call fson_print(value)    

    ! extract data from the parsed value        

    ! clean up
    call fson_destroy(value)

end program example1

{
    "name": {
        "first": "George",
        "last": "Crumb"
    },
    "age": 83,
    "website": "www.georgecrumb.net",
    "compositions": [
        {
            "title": "A Little Suite For Christmas, A.D. 1979",
            "instrument": "piano"
        }
    ]
}

! Root fson value.  Remember, always use a pointer with fson value.
type(fson_value), pointer :: value

! The composer's information will be extracted into these variables
character(len=50) :: first,last
integer :: age

! Parse the file.  See the getting started example.

! Extract the name values.  Use the optional path parameter to specify nested values.
call fson_get(value, "name.first", first)
call fson_get(value, "name.last", last)

! Extract the age value. 
call fson_get(value, "age", age)

| Operator | Description              | 
|----------|--------------------------|
|    $     | Root object/value        | 
|    @     | The current object/value |
|    .     | Child operator           |
|    []    | Array element            |